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SUMMARY 


PLANNER is a language for proving theorems and manipulating 
models in a robot. The language is built out of a number of 
problem-solving primitives together with a hierarchical control 
structure, statements can be asserted and perhaps later withdrawn 
as the state of the world changes* Conclusions can be drawn from 
these various changes in state. Goals can be established and dis¬ 
missed when they are satisfied. The deductive system of PLANNER is 
subordinate to the hierarchical control structure in order to make 
the language efficient* The use of a general-purpose matching lan¬ 
guage makes the deductive system more powerful. The language is 
being applied to solve problems faced by a robot and as a semantic 
base for English. 
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The following Ft a report on some of the wrk that } 
have done as a graduate student at Project Mftf. Reproduction Fn 
foil or In pa rt Fs permitted for ary purpose of the United 
States government, This work win hopefully he part of a 
dissertation, I would like to thank the various system 
"hackers* 1 that have made this work possible; D, East Take, P, 

G reenbl a tt, 0, Hoi Sowey, T. knight, G* Mitchell, $, Nelson, and 
J, White, | had several useful discussions with H, V, McIntosh 
end A, Gutman on the subject of pattern matching, S, Pa pert ,T, 
W1 nograd, and M, Paterson made suggest Fons for Improving the 
presentation of the material In this memo. T, FTnograd and G. 
Sussman marie suggestions for Improving PLAINER, 
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Note to the Reader 


This paper is organized Tn what purports to he a logical 
systematic fashion* The organization makes Ft difficult to get 
a oulfk ove rv F ew * ThE following guide is provided for those 
readers who are not Interested in reading the whole paper, 
Chapter 1 is a hack. Chapter 2 gives the epistemological 
foundations for our approach to problem solving. Chapter lisa 
discursive overview of the rest of the thesis using examples of 
some features of the problem solving language PLANNER, Many of 
the important ideas In the thesis are touched on some where Tr 
the chapter. In chapter 4 we find a detailed explanation of the 
structural pattern matching language MATCHLESS. Readers who are- 

only peripherally interested In pattern matching need read only 
sections 4,1, 4*2, 4*3, and 4,4* Chapter 5 begins the 
systematic explanation of PLANNER. It Introduces the 
primitives, data structure., and control structure of the 
language. In contrast to the qua nt I f lea t Iona I calculus, the 
semantics of PLANNER are expressed in terms of properties of 
procedures written in the formalism, Fn chapter 7 we explain 
how properties of PLANNER procedures oan be expressed and proved 
In the formalism Itself, Also we attack the problem of how It 
Ts possible to teach a problem solver new knowledge. 


V^hat Achilles Said To The Tortoise 
Lewis Carroll 


Achillas had overtaken the Tortoise, and had seated himself comfortably 
on its tack.. 

i 

"So you're got to the end of our race-course?" said the Tortoise, "iven 
though it does consist of an infinite series of distances? I thought some 
wiseacre or other had proved that the thing couldn't be done?" 

"it can be done," said Achillas* "it has been done! Solvit nr ambuiandc. 
You see the distances were constantly diminishing: and so—”’ 

"But if they had been constantly increasing?" the Tortoise interrupted, 
"how then? 1 * 

"Then I shouldn't ht here," Achilles modestly replied $ ''ar.d you would 
have got several times round the world, by this time!" 

"You flatter me— flatten* T mean," said the Tortoise* "For you are a 
heavy weight, and no aistate! Veil now, would you like to hear of a race-course, 
that most people fancy they can get to the and of in two or three steps, while 
it really consists of fin infinite number of distances, each one longer tnan the 
previous one?" 

"very much indeed!* said the Grecian warrior, ae he drew from his helmet 
(few Grecian warriors possessed pockets in those days) ah enormous notebook and 
a pencil* "proceed? And speak slowly, please! Short-hand isn't invented yet! M 

"That beautiful First Preposition of Suclidl" the Tortoise nurtured 
dreamily. "You admire Suelid?" 
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' Passionately! So far, at least, as one can admire a treatise tnat won't 
be published for soae centuries to comet - ' 

'"Well, new, let's take a little bit of the argument In that lirst 
Proposition—Just two steps* and the conclusion drawn from. tnen* niudiy on ter 
them in your note-book. And, In order to refer to tinea conveniently, let's call 
them A, B* and Z: 

(A) Things that are equal to the same are equal to each other* 

(£) The two sides of this Triar.ftle are things that arc equal to tne 

Same, 

(£} The two sides of this Triangle are equal to sash other. 

"Readers of Euclid will grant, I suppose* that Z follows logically from 
A and £, so that any one who accepts A and B as true* must accept Z as true?" 

"Undoubtedly! The youngest child in a high School-—■ as soon as High 
Schools are Invented* which will not be till some two thousand year* later—will 
grant that,” 

"And If sons reader had not yet accepted A and S as tree* he might still 
accept the Sequence as a valid one* I suppose?" 

"So doubt such a reader might exist, he sight say 'I accept as true the 
Hypothetical Proposition that* if A and B he true, Z nust he true; hut I donl 
accept A and B as true,' Such a reader would do wisely in abandoning Euclid, 
and taking to football*" 

"And night there not also be some reader wno would say 'I accept A and 
B as true, but I don't accept the Hypothetical'?" 

"Certainly there might* *de, also, had better take to football," 

And neither of these readers," the Tortoise continued, "is as yet under 
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any logical necessity to accept Z as true?" 

Quite so, Achilles assented, 

tfeUf now, l want you tg consider me m a reader of the second kind* 
and to force m£, logically, to accept t as true,'' 

"A tortoise playing foot hall would he—'' Achilles was beginning* 

'—an anomaly, of course/' the Tortoise hastily interrupted.* “dont't 
wander from the point. Let's haye Z first, and football afterwardsf" 

'I'm to force you to accept Z, am 1?" Achillas *aid musingly, "And your 
present position is that you accept A and j, hut you dint accept the 
Hypothetical—" 

"Let's call It C," *aid the Tortoise* 

—blit you dont accepti 

CC) If A and fi are true, Z must be true*" 

'That is my present postton/' said the Tortoise* 

"Then I must ask you to accept C,” 

I'll do so, said the Tortoise, as soon as you've entered It in that 
note-book of yours, Yb&t else have you £ot la it?" 

Only a few nemoranda, said Achillea, nervously fluttering tne leaves; 

"a few memoranda of—of the battles in which I hart distinguished 
myself!" 

'"Plenty of blank leaves, I seel" the Tortoise cheerily remarked, "We 
shall need them all!" (Achillas shuddered,) "How write as I dictate: 

1AJ Things that are equal to the same are equal each other* 

iS) The two sIdas Of this triangle are things that are equal to the 


saie. 

{C} If A and B Are true, Z must lie true. 

IZ) The two sides of this Triangle are equal tc each other," 

"You should call It h, not S t " said Achillas, "It coafcjs aest to the 
other three* If you accept A and E and C, you must accept Z*" 

And why aust I? 

"because it follows logically from them* If A and h and C are true, Z 
must he true* You don't dispute that, I imagine?" 

I£ A and B and C are true* Z must he true/ the Tortoise thoughtfully 
repeated* 'That's another hypothetical isn't it? And, if 1 failed to see its 
truth* I might accept A and £ and C, and still hot accept 2* mightn't 1?” 

"You might/’ the candid hero admitted? "though such obtuseness would 
certainly be phenomenal* Still, the erect fa possible* so I aust asfct you to 
grant one more Hypothetical*" 

"tery good. I'm quite willing to grant Z, as 30 on as you've written It 
dews* we will call it 

tD) If A and jf and C are true, Z must be true* 

"Save you entered that in your note-book? 1 ' 

"i haret" Achilles joyfully esc 1 aimed, as he ran the pencil into its 
sheath* "And at last we've got to the end of this ideal rate-course! uo* that 
you accept A and B and C and B, of course you accept Z/ 

"Do I?" said the Tortoise innocently* "Let's ma*e that quite clear* I 
accept A and h and C end U* Suppose I still refuse to accept z? 1 ' 

"Then Logic would take you by the throat* and force you to do it!" 


Achilles triumphantly replied. '’Logic would tail you can't nelp yourself, Ncn 
that you'Tg accepted A and, l and C and D, you must accept Zi' So you'?* no 
choice* you see," 

"Winterer Logic is 50 04 enough to tell me is worth writing down/’ said 
the Tortoise, "So enter it in your took, please* We will cull it 

(S) If A and 3 and C and B are true, £ must be true, 

"Until Vre granted that, of course, I needn't grant I. So it's quite a 
necessary 3tep* you see?" 

I see, said Achillea; and there wa* a touch of sadness in his tone* 


dU The Structural hounbatlons o i Problem Solving 


by-voral iunaamental questions must be faceo oy any 
foundation for problem solving* A foundation lor problem 
solving must specify a goal-oriented formalism in wnich problems 
can be stated* hurthernfore there must be a formalism jor 
specifying the a LI enable methods oa solution of problems* As 
part of the. uu ]i. nit ion oj the f orroa-llscns the Jo Hawing elements 
must be uefinecjj the data structure the control structure* acid 
the primitive procedures* The problem of what ere allowable 
beta structures for facts about the world i mot an lately arises* a 
foundation for problem solving must confront the problem of 
change* How can account oe taken of the changing situation in 
the world? nhat are good ways to express problem solution 
methods ana how cap* plans 30r the solution of problems oe 
formulated? How esn new problem solving procedures be 
Synthesized out of goal oriented language? rthat properties of 
Its procedures will a problem solver be able to know and how 
will they be established? All of the above questions roust be 
adoressaa qy a foundation lor problem solving* 

flu shell propose a foundation Idr problem solving in 
which a formalism cal lea pLAMNtu will play a central role* If 
it is flexiole enough, the same formalism can provide the basic 
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facilities for a foundation for problem solving. PLANNER is a 
uni Jiao collnetion of problem solving primitives for proving 
theorems and wanipula ting monels In a robot, we have tried to 
mate this collection complete in the sense that it should be 
pgssibie to ntnine any fundamental problem solving process in 
terms of the primitives in a natural and elegant manner* Ihe 
primitives are designed to ne tied together by a hIfei-rARCnlCAL 
CONTROL STRUCTURE which is difierent from, th# control structure 
at recursive subroutine calls, Roughly speaking in hierarchical 
control structure the hierarchy of the previous calls is 
preserved so that a process can back up a previous state it it 
so desires, hierarchical control maxes pUNNER very convenient 
for construction^ elaborate hypothetical structures* It is in 
the aDove sense that we shall speak ol PLANNER as a language. 
PLANNER is & high level, nonprocedural, goal-ortented language 
in which one can spedly to a large oegree what one wants done 
rather than how to do it* Many of the primitives in FLANNlR are 
concerned with manipulating a data base by specifying the 
operations to be performed* Many of the primitives have been 
developed as extensions to the language .whan we have sound 
problams that CouJto not otherwise be solved in a natural way. 

Of course the trick is to incorporate th« hew prim-itive as a 
genuine extension Of wioe applicability* Others have suggested 
themselves as adjuncts in or tier to obtain use iul closeure 
porperties in th« language* he would oe grateful to any reader 
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who coulu suggest problems that would $£ 4*01 to require jurther 
extensions or mooi fications to the language* l'he language will 
h-e explained by giving an over-simplified picture and then 
attempting to correct any misapprehensions that the reader might 
have gathered jrom tne rough outline* 

One basic idea Behind the language is a Quality that we 
lino cetwesn certain imperative and declarative sentences. ror 
example consider the statement fimplies A BK As it stands the 
statement is a perfectly good declarative statement* It also 
has certain imperative uses for PLANNED- For example it says 
that we should set up a procedure which will note whether A is 
ever asserted ano If so to consider whether b should then dc 
asserted. hurthermora it says that we should set up a 

procedure that will watch to s«b if it ever Is our goal to try 
to deduce B ana if so whether it is wise to mate a suugoai to 
oeduce A* Exactly the same observations can ne maoe about the 
contrapositive of the statement (implies a BJ which Is (implies 
(not bJ (not a)J* Statements with such things as universal 
quantifiers! con junctions,, disjunctions! etc* also have both 
Q-eclarative ano imperative uses* PLANNED theorems are being used 
as imperatives when they arc being executed and as declaratives 
.when useo as data* 

Our worn on PLANNED has been an investigation in 
PROCEDURAL EPISXtMOLOGf, the Study of how knowledge can be 
eintiak*ped in procedures* The PRINCIPLE OF PROCEDURAL r.A b£Du I NO 
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is that Ante llectua 1 structures can be analyzed through their 

procedural analogues, rte will show have tha following all have 
procedural analogues* 

uescrlptious 
racerodenaations 
theorems 
proo Is 
grammars 

models of programs 
patterns 

Descriptions have procedural analogues in the form oi PLANNER 
procedures which recognize the objects described* Theorems In 
the predicate calculus correspond to PLANNER theorems aor leaning 
oiicluctions. Ha the mat leal proois correspond to plans in PLAHNttf 
for generating a valid chain oi deductions* The PrtOOftAHMAH 
language oi Terry ttinogran provides a procedural analogue to 
obtain the Kino oi information that Is supposed to be supplied 
by trans formational grammars. Intricate patterns can be 
sped lieu in procedural pattern matching languages, Models oi 
programs are defined by proceoures which state the relations 
that must hold between the varibles of the program as control 
passes through various points* 

hrom the above observations, we have constructed a 
language that permits both the imperative a no declarative 
aspects of statements to bo easily manipulated* PLANNER uses a 
pattern-directed in formation retrieval system* fthen a statement 
is asserted recommendations determine what conclusions will oe 
drawn 2row the assertions* Procedures can make recomcnenaat tons 


to which theorems should be used In trying to iiraw 
conclusions ifrom an assertion. ana they can recommend the oraer 
in which the theorems should be applied* deals can be created 
end automatically dismissem when they are satisfied* Objects 
can he found from schematic or partial descriptions. Provision 
is inane tor the fact that statements that were once true in a 
model may no longer he true at some later time ana that 
consequences must be drawn grom the tact that the state 01 the 
model nas changed* Assertions and goals created within a 
procedure can be dynamically protected against interference from 
other procedures. Procedures written in the language are 
extendable in that tney can make use oi new knowledge whether 
it be primarily declarative or imperative in nature. Hypotheses 
can be established and later discharged* fle woulu like to use 
PLANNER to write a bloc* control language in which we could 
specify how blocks can be moved around by a robot. Then we 
could write a structure building language in which we could 
provide oescriptions 01 structures {such as houses and bridges) 
and let PLANNER figure out how to bulla them* The logical 
deductive system used oy PLANNER Is subordinate to the 
hierarchical control structure of the language. PLANNER 
theorems operate within a context consisting of return 
addresses, goals, assertions, bindings, ana local changes of 
state that have been made to the global data base. Through the 
use oi this context we can guide the computation and avoid doing 


basically the same wort ovar and over again. ror example, once 
we determine that we are working within a group i in the 
mathematical sensei we can restrict cur attention to theorems 
lor working on groups since we have direct control over what 
theorems will be used. lLANNLL! has a sophist!eaten deductive 
system in orcier to give us greater power over the direction Of 
tn® computation. In several respects the deductive system is 
more power luj, than the quant! flcatlonal calculus of order omega. 
tr e have tried to oesign a sophisticated deductive system 
together with an elaborate control structure so that lengthy 
computations can be cerried out without blowing up* Gj course 
procedures written in PLAINER are not interlnsicajLly efiicient. 

A great oeai of thought ang effort must be put inot writing 
efficient procedures. HLAKNfcK does provide some basic 
mechanisms and primitives in which to express problem solving 
procedures- The control structure can still be used when we 
limit ourselves to using resolution as the sole rule o] 
injwrenctj. In general a uniform proof procedure gives us very 
little control over how or when a theorem Is to be used. The 
problem is one ol the level of the interpreter that we want to 
use. A digital computer by Itself will only interpret the 
hardware instructions bi the nuachine, ae can write a higher 
leva] interptjter such as LIS** that will interpret assignments 
end recurseive luhction calls. At a stilt higher level we can 
write an interpreter such as MATCHLESS which will interpret 


patterns. At the leva! o| PLAUNiff we tan interpret assertions* 
licia statements* and goals* it goes without Spying that wa can 
compile code for any 01 the higher level interpeters so that it 
actually runs unaer a lower level interpreter* In general 
higher level interpreters have greater choice in the actions 
that they can take since instructions are phraseo more in terms 
uf goals to be achived rather than in terms ol explicit 
elementary actions. The premium that we iac a is to raise the 
level o d the interpreter while at the same time keeping the 
actions taken by it unaer control* because of its extreme 
hierarchical control and its ability to make use of new 
imperative as well as declarative knowledge, it is feasible to 
carry out very long chains ol Inference in PLAKNEIh Examples od 
some oi the kinos 01 statements that tan be made in the language 
are* 

rind the second smallest integer that is sum of its aactors* 
Pick up all the reo cubes that are on top of blue cubes and 
put them in the yellow box* 

Assert that all the people in this room are older than Jack- 
rind ail the employees at Mil that are related to each other 
and give the relationship of each to the others* 

ne are concerned as to how a theorem prover can uniiy 
structural problem solving methods with domain dependent 
algorithms ana data into a coherent problem Solving process* iy 
structural methods we mean those that are concerned with the 
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formal structure of the argument rather than -with the semantics 
of its domain dependent content* examples ol structural methods 
ara the use ol subgoais in PLANNER and the consequences of the 
consequent heuristic* by the COhStUUtNCES Or Iht CQM^ciJUchT 
heuristic* we mean that a problem solver should Iqqk. at the 
consequences 01 the goal that Is being attempted in order to gat 
an idea of some 03 the statements that could be useful in 
establishing or rejecting the goal, rte ne&d to discover more 
powerful structural methods* PLANMtii is Intended to provide a 
computational basis for expressing structural methods* One of 
the most important ideas In pLANNfcrf is to bring some of the 
structural methods of problem solving out into the open where 
they can be analyzed ana generalized* There are a dew basic 
patterns of looping ana recursion that are in Constant use among 
programmers, Examples are the * v for“ statement of «AXCHLldS 5 t the 
“fine* statement in PLANNER* and recursion on the CSr ana the 
edr in LISP, The -“find 111 and 4 for JI primitives are explained in. 
the MATCHLESS ana PLANNER documentation* The patterns represent 
common structural methods used in programs* They specify how 
cornmanas can by repeated iteratively and recursively. One of 
the main problems in getting computers to write programs is to 
use these structural patterns with the particular domain 
dependent commands that are available, it is difficult to 
decide which ii any of the basic patterns of recursion is 
appropriate in any given problem* The problem of syntesliing 
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programs out of canned loops is formally identical to the 
prooiem ol finding proois by mathematical induction* Indeed 
many proofs can Oh 3 rtiitfully considered to define procedures 
which are proved to have certain properties, he have approached 
the premium of constructing procedures out 01 goal oriented 
language from, two oil-actions* The first is to use canned loops 
Csucb as the Jina statement) where we assume a-priori the kina 
03 control structure that is needed. The second approach is to 
try to abstract the procedure from protocols of its action in 
particular cases. 

The task of arti]iciai Intelligence is to program 
inanimate machines to perform tasks that require intelligence. 
Over the pest oetaoe Several different 4 ppr&&Ches toward A, I. 
hdv« oeve-lopeo* Although very pure forms oi these approaches 
will se.lQOiU be met in practice* we find that it is useful lor 
purposes oi discussion to consider these conceptual extremes* 

One approach (called results mode by Papert) has been to 
choose some specific intellectual tasic that humans tan perform 
with facility ana write a program to perform it. Several very 
fine programs have been written following this approach, tins oi 
the first was the Logit Theorist which attempted to prove 
theorems in the proposiLionel calculus using the cjebuttive 
system dBve.loped in principle iietnmattca* Tbe importance of the 
Logic Theorist is that it developed a ooay of techniques which 
when cleaned Up eno generalised have proved to be fundamental to 
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furthering our unoerstanding oi A. I, The resuits moae approach 
offers the potentiality or maximum efficiency in solving 
particular classes of problems. On the other hand* there have 
oeen a number 03 programs written from the results cnoae approach 
whicn nave not advanced Our understanding although the programs 
achieved slightly better results than tiau been achieved before, 
Inesu programs have been large» clumsy, brute force pieces 0 3 
machinery * There is a clear danger that the results mooe 
approach can degenerate into trying to achieve A» J* via the 
"hairy acludga a month plan". 

Another approach to A, 1 , that has been prominent In the 
last decade is that of the- uniform prooi procedure, Proponents 
03 the approach write programs which accept, declarative 
descriptions of combinatorial probiEarns and then attempt to solve 
thanu In its most pure form the approach does not permit the 
machine to be given any information as to how it might solve its 
problems. The character table approach to A, 1 , is a 
modification of the uniform procedure approach in which the 
program is also given a Unite state table of connections 
between goals ana methods* The uniform procedure approach 
of jars a great meal of elegance anu a maximum of a certain kind 
of generality, (Jurrent programs that implement the uniform 
procedure approach su.ner from extreme ine liiciancy * fle believe 
that the inefficiency is intrinsic in the approach, 

PLANhfcH is not necessarily general In the same 


sense 
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tout a uniform proof procedure 15 general* PLANNER is luLtmueLi 
lo at u natural computational basis for friatnous pr solving 
problems In. a aomain* A complete proof procedure lor d 
qudntifi, cat tonal calculus is general in toe sense tnat if one 
tan force the problem into the icria ol the input language and 
ar& prepared to wart eons li necessary tnen the computer is 
guaranteed to lino a solution If thera Is one* The approach 
taken in PLAfthEtf is to subordinate the- oeouetive system to an 
elaborate hierarchical control structure which is domain 
independent. Proponents o - j the uniform procedure approach are 
apt to say that PLA&NEH pt cheats w because through the use ol its 
hierarchical control structure, it is possible to tell the 
program how to to try solve its problems. But surely, it is to 
the credit of the program that it is able to accept new 
information ana [flake use ol it* A problem solver needs a high 
level language dor expressing problem solving methods even if 
the language is only used by the problem Solver to express its 
problem solving methods to Itself* FLAMNtri is used both as the 
language in which problems are poseo to the problem solver ana 
the language in which methods oj solution are formulated* 

PL A WE* is not intended to oe a general solution to the probLem 
Oj linuing general methods for reducing the combinatorial search 
involved to solve a problem using an arbitrary set of axioms. 

It is intandaa to be a general tormaltsm in which knowledge in a 
ooioain can oe combined and integrated* Realistic problem 
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Solving programs will neeo vast amounts of knowledge* fie 
consider ell mechuus o: solving problems to be legitimate. If * 
program should happen to already know the answer to the problem 
that it is asked to solve, then it is perfectly reasonable for 
the problem to be solved by table look-up* fie should use the 
criterion that the problem solving power 03 a program should 
increase much jaster than in Direct proportion to the number of 
things that it is toib* The important factors in judging a 
program are its alegynce* generality* ano efficiency* 


3* Discursive Overview 


Ihis chapter contains an explanation of some c t the 
ideas in HLANhttf in essay form* It is Paseo on a ora it written 
by I. Mriffjm lOr the course 6,b4b, J i the reaoer wouio Lite 
to see a more logically systematic presentation^ he can consult 
the sun sequent chapters. The aaslast way to understand PLANNEh 
is to watch how it works* so in this chapter* we will present a 
few simple examples anc explain the use ol some 01 its most 
elementary lectures* 

hirst we will taxe the most venerable of traditional 

deductions* 

luring is a human 

All humans ere tall lb la 

so 

luring is fallible. 

It is easy enough to see how this could be expressed in the 
usual logical notation eno handled by a uni loroi proof procedure, 
instead* let us express it in one possible way to PLANNEri by 
saying* 

I'ASSElfT CHUfcAU TUhJUGJJ 
tbthlNt ThaQRtkl 

iCOh^ttlubNT ai [rALLIBLh $?X> 

IbOAL itiJhAh 5 7XJ11J 

function calls are enclosed between M t u ana The 

proof would be generated by asking PLANNER to evaluate the 
expre ssion* 

(OOAL fhALLIbLE TUHINbJ) 
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he immealately set: several points* hirst, there are two 
oiiferent ways of storing Information* Simple assertions are 
stored In a oata basa ol assertions* while more complex 
sentences containing quantifiers or logical connectives are 
expressed in the form of theorems [although facilities exist ior 
storing them in standard logical notation ana handling them as 
in any other theorem prover if that is deslrea)* 

Second, one of the most important points about PLANNErt I s 
that it is an evaluator Jor statements* It accepts input in the 
form of expressions written in the PLANNER language, and 
evaluates them, producing a value ana Side enacts. ASiEk'l Is a 
function which, when evaluated, stores its argument in the data 
base oi assertions (which Is hash-cooed in various ways to give 
the system efficient loOK-up capabiiitiesJ. DtFINE puts a new 
theorem in the data case* In this example we have, aellnea a 
theorem of the CONSEQUENT type (we will see other types later>* 
This states that if we ever want to establish a goal o] the form 
(PALLIbLE S?X), -we can do this by accomplishing the goal (hlTtfAN 
S?X1, where X is a variable. The strange prejix characters are 
part of PLANNER'S pattern matching capabilities (which are 
extensive ana matte use ol the pattern^matching language 
rtATCnLtSi. If as* PLANNER to prove a goal ol the form (A X) f 
tnere i s no obvious way of knowing whether A and X ere constants 
(like lUtiJNG ana HUMAN In the example^ or variables, LISP 
solves this proolem by using the function QUOTE to indicate 
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constants* In pattern matching this is inconvenient and makes 
most patterns much bulkier ana more, dig licult to read. Insta^a, 
i'LANMcR uses the opposite convention — a constant is 
represented by the atom itself, while a variable cnust oe 
indicated oy adding an appropriate prefix. I'hls prefix differs 
according to tha exact use of the variable in the pattern, but 
for the time being let us just accept $7 as a prefix indicating 
a variable. The ueiinition of the theorem indicates that it has 

One variable, X by the fX> 'following CQMi>EUUfc£fl. 

The thiro statement illustrates the function UQAL, whicn 
calls the pLAKNiik interpreter to try to prove in assertion* 

This can function in several ways, If we hao askea PLANNLk to 
evaluate IGOAL thOMAft TUklNGl) it would have found the requested 
assertion imjieoiafcely in the oeta oase and succeeded f returning 
as its value some inoicator that It hao succeeoeoK however, 
fr'ALLIBLfc TURI-toGi has not oeen asserted, so wtt must resort to 
theorems to prove it. Later me will see that a GOAL statement 
can give PLAftNtd various kinas of advice on which theorems are 
applicable to the goal and should be tried* lor the moment, 
take the default case, in which the evaluator tries all theorems 
whose consequent is of a form which matches the goal. Ei,e. a 
theorem with a consequent ($7Z TbftiWG) would be tried, but one 
of the form ChAPPy S?Z) or (HALLlBLt s?| $?Z> would not. 
Assertions can have an arbitrary list structure lor their forrfcat 
— they are not limited to two-member lists or three-ndembsr 


liiti us in these examples.! The theorem we have just defined 
would be found, ano in trying It, the match of the consequence 
to the goal waulo cause the variable 5 ?X to d* bound to the 
constant TURING* Therefore, the theorem sets up a new goal 
MdtfAN TU Irf 1 NO I ana this SuCceeoS immediately since it ts in the 
data base. In general, the success of a theorem will depend on 
evaluating a PLANNER program of arbitrary complexity. In this 
case it contains only a single GOAL statement, so its success* 
causes the entire theorem to succeed, and the goal ChALLIbLE 
TO if IN CJ is provea, 

The following is the protocol of the evaluation i 

igoal. (Fallible tuhingjj 

(PROVED? IrALLIbLE 1URINGH 
PAIL 

ENTER THEOREM.! 

A BECOMES TURING 

iGOAL CHUMAN TURING)! 

IPftOVED? (HUMAN TURING)-! 

SUCCEED 

The way in which variable* are bouna by matching is oi xey 
importance to PLANNER * Consider the question “is anything 
fallible? 1 *, or in logic (EXISTS Y (FALLIBLE Y )1 , This could be 
expressed in PLANNER as* 

(THPRGG iY J (GOAL (TALLIDLE S?YJ)i 

Notice that ThPROG (PLANNERS equivalent of a LISP PUGG, 
complete with GO statements* tags* RETURN, etc *i m this case it 
acts as an existential quanti tier* It provides a binding-place 
lor the variable Y, but does hot initialize it — it leaves it 
in a statu particularly marked as unbouno* To answer the 


question, we os* PLANNER to evaluate the entire TnPRDC 
expression above. To Jo this it starts by evaluating the GOAL 
expression* This searches the oute base for an, assertion ol the 
form (PALLIbLt 5VY) anti rails* It then looks tor a theorem with 
a consequent of that ]orm f and rinds the tnaoreffi we deiineo 
above. Now when the theorem is called* the variable A In the 
theorem is iaenti riea with the variable Y in the goal* but since 
i has no value yet* A aoes not receive a value. The theorem 
then sets up the goal thUMAN k 3 with A as a variable* The 
data-base searching mechanism takes this as a coeunana to look 
lor any assertion which matches that pattern (i.a* an 
instantiation ), ana finds tne assertion (HUMAN TUHlhbl* This 
causes A I ana therefore Y) to be buuna to the constant TURING, 
and the theorem succeeds* completing the proof ano returning the 
value (FALLIbLfc TURING)* 

There seems to be something missing* So far,the data oass 

has contained only the reLevant objects, aria there lore PLANNER 

has found the right assertions immediately* Consider the 

problem we uould get it we adpao new imormation by evaluating 

the statements* 

MS&EKI (hU«AN LOC RAILS) > 

USbtHT (GREEk 50CftATL$)l 

Our data base now contains the assertions* 

fribMAN TURING) 

( riu^AN SUCRATES) 

{GNfcfcK SOCtfAItS) 
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and the theorem* 

CCON5tuU£Nl u> (tALLIhU &VXJ 

t GOAL £ HUM Ah s?>on 

what ll we now asX, "Is there a fallible Gree*J" jn FLAWNER 
wa would ao this by evaluating tht* expression* 

OHPRtXJ £X> (GOAL (rALLiBLL &n>i tuOAL (GREEK s?XH> 

Inis time the protocol is 


[GOAL (FALLIBLE S7XJJ 

[PROVED? £ FALLIBLE $ 7 X 1 J 
X BECOMES JUKINO 

[GOAL (GfcEcK TURINGJ1 

IPRQvtD'J f GHEE A IbHLNOn 
FAIL 

FAIL 

A StCOrtEo SOCRAltS 

[goal cgreea sqckatesjj 

[PROyED? (GREEK SOCRATES) 1 
SbCCEEO 

ThFROQ acts lixe an AND, insisting that all of its terms 
ar& sat isfied. be fore the TriPRQG is happy* Notice what might 
happen. The first GOAL may be satisfied by the exact same 
□eduction as before* since we have not removed information* Ij 
the oata-base searcher happens to run into TURING before It 
finds BOCRATES, the goal CHUMAN 5 ?jO will succeed, binding s?X 
to TURING* After (FALLIBLE S?XJ succeeds* the ThPRGG will then 
establish the new goal (GREEK TURING}* which is doomed to fail 
since it has not been asserted* ana there are no applicable 
theorems. If we think. in LISP terms* this is a serious problem* 
since the evaluation oi the first GUAL has been completed be lore 
the second one Is calledi ano the "push-nown iist 1 * now contains 


only the THHKtib, 11 we try to go neck to the beginning ana 

start over, it will again find TURIEiG anu so on T ad in :ini turn, 
tUie or the most important features ol the PLA^NkR language 
is that backup In case of jallure is always possible, anti 
moreover this backup can go to the last place where a decision 
oi any sort was aiaae. here, the decision was to pick e 
particular assertion from the cate base to match a goal, Ether 
decisions might be the choice of a theorem to satisfy a goal, or 
a decision of other types fount! in more temple* fLA^NEii 
functions, PLANNED keeps enough information to change any 
oecision and senci evaluation back down a new path. 

In our example the decision was made insiae the theorem for 
hALLlBLE, when the goal (hUMAN was mat the a to th& assertion 

[HUMAN TURiNUJ * PLANNER will retrace its steps, try to find a 
different assertion which matches the goal, find CriUtoAN 
bOCHAlJsSJt ana continue with the proof. The theorem will 
succeed with the value ClrALLlfaLt SOCRATES )„ ano the THPJ^OO will 
proceed to the next expression, (UQAL (GREEK bitice X has 

been bouno to SOCkATtb, this will Set up too goal (GREEK 
SOCRATES) which will succeed immediately by finding the 
corresponding assertion in the data base. Since there are no 
more expressions in the THIr'ftGG, it will succeed, returning as 
its value the value of the last expression, (GREEK S0CSA1ES), 
lhe whole course oj the deduction process depends on th^ failure 
mechanism for backing up and trying things over (this is 


actually the process of trying different branches aonn the 
Sdbgoal tree.J Ali or the Junctions Hite THCQhlv, InAND, 1 hOA t 
atc» are controlled by success vs* failure, rather than NIL vs* 
non-hilL as in LISP. This is then the i^LAMNEk executive whicn 
establishes ano manipulates Subgoals m looting lor a prod. 

So far hfi have seen that although PLAMJEh is written as an 
evaluator, it diners in several critical ways iroii anything 
*nith is normally considered * programming language, hirst, it 
is goai-oirected. Theorems can be thought oi as Subroutines, 
but they can be cal lea by sped fying the goal which is to be 
satisfied. This is like having tha abiiitty to say "Call a 
subroutine which will achieve the desired result at this point * 11 
Second, the evaluator has the mecnanism 03 success ana failure 
to handle the exploration 01 the a subgoal tree. Other 

evaluators, such as LISP, with a basic recursive evaluator have 
no way to do this. Third, PUVNNtfi contains a large set of 
primitive commands lor matching patterns and manipulating a data 
base, ano lor handling that oata base efficiently. 

On the other side, we can ask how it differs trom other 
theorem provers, nhat is gained by writing theorems in the form 
of programs, and giving them power to call other programs which 
manipulate data? lha key is in the form 01 the data the 
tneorem-prover can accept, tocst systems take oeclerative 
information, as in predicate calculus* This is in the jorm of 
expressions which represent “facts" about the world. These are 


manipulated by the theorem-prover according to some tixsn 
uniform process set by the system* PLAjNhtts can make use o] 
iiiiperat iv-e in formation, telling it how to go about proving a 
subgoal, or to make use of an assertion* 'this produces what is 
cal lea hierarchical control structure* That is, any theorem can 
indicate what the theorem prover Is supposed to oo as it 
continues the proof* It has the full power to evaluate 
expr&ssions which can depend on froth the data base ann the 
subgoal tree, ano to use its results to control the further 
proof by making assertions, deciding what theorems ore to be 
used, ana specifying a sequence of steps to be followed, nhat 
does this mean In. practical terms'? In what way floes it make a 
-''better* theorem prover? Ae will give Several examples of areas 
where the approach is important* 

hirst, consider the basic proolem of deciding what subgoals 
to try lit attempting to satisfy a goal* Very often, knowledge 
of the subject matter will tell us that certain methods are very 
likely to succeed, others may be useful ii certain other 
conditions are present, while others may be possibly valuable, 
out not likely, KVe would like to have the ability to use 
heuristic programs to determine these facts ano direct the 
theorem prover accordingly. It should oe able to direct the 
search for goals ano Solutions in the eest way possible, ano 
sole to bring as much intelligence as possible to bear on the 
decision- In IpLANNEK this Is acne by adding to our OOAL 


statement a recommendation list which can speci :y that uhL'r 
certain theorems are to be triea* or that certain ones are to oe 
trieo rlNif in a specified oroer. Since tneor&ras are programs, 
sjoroutinas of any type tan be called to help this decision 

herora establishing a new uQAL. hath theorem has a name fin our 
ae Unit Ion on page l, .the theorem was given the name lhcUhtrtl), 
to iacllttate rejerrlng to them explicitly* 

Anotner important problem is that oi maintaining a oat a 
ease with a reasonable amount of material* Consider the lirst 
example above. The statement that all humans are fallible, 
while unamidiguous in a declarative sense is actually ambiguous 
in its Imperative sense fiUa. the way it is to be useu oy the 
theorem proverK The first way Is to simply use it whenever we 
are iaceo with the need to prove tEALLiatE $?x>. Another way 
might t>e to watch for a statement of the term fHUMAN 5, J x,) to be 
asserted, ano to immediately assert fKALLJBLE as well. 

There Is no abstract logical oifference, but the impact on the 
data case Is tremendous. The more conclusions we oraw when 
information is asserted, the easier prop IS will be, since they 
will not have to make the aokutional steps to oeciuce tnese 
consequences over aha over again* however since we aon-^t have 
in unite speeo and size, it is clearly folly to think of 
Deducing and asserting everything possible for even everything 
interesting* about the out a when it is entereo. If we were 
working with totally abstract meaningless theorems ano axioms 


t an assumption which wuu lu not be In compel title wicFi, jiiany 
tnobrem-proving schemes!* this would d« an insoluble ailei&ena, 
tot pLAMhtR is designeci to work 1 n the real woric, where our 
knowledge is much more structured then a set oi axioms ana roles 
or Inference, fie may very wall* when we assert fLlKe^ 
rJti'hf) want to ueouce and assert ChUtiAN 5?X), since in deducing 
things about un object* it will very olten be relevant whether 
that object Is human, ana we shouldn't need to aeuuce it eacn 
time* bn the other hand, it would, be silly to assert (nAS-Ah- 
PAtiT &?X SPLteh!* since thtire is a harue of facts equally 
Important ana equally limited in US«. Part ol the knowledge 
which PLaN^Ek shouio have os a subject* then* is whet facts are 
important* and when to draw consequences of an, assertion. This 
is done by having theorems o I an antecedent type* 

CbtHlNt IHtQti£rt2 

(AWTECfcUENT U V) (LlKtS 5?X $it) 
tASStHT (J-LUrXAh SVX)})) 

This says that whan we assert that A likes something* we 
snould also assert (nUMAtl Of course, such theorems uo not 

have to t>e so simple. A fully general PLA.UNtH program can be 
activated ny an AMbOahbwT theorem* doing an arbitrary ithat is* 
tne programmer wnetber he be man or machine has Jree choice! 
amount of deduction* as$S®rtion t etc. Knowledge ol what we are 
doing in a particular problem may indicate that it Is sometimes 
a goon ioea to do this Kind ol deduction, and other times not. 

AS with the CUtotdUtDiT theorems, PhAWNJEfi has the lull capacity 


wn^n something Is asserts®, to evaluate the currant state oi the 
■jata end pr ool T enc spa ci ti call y decide which Ahl'cC cut NT 
tneorems snouio be talied. 

^UVNhtJi the re lore allows deductions to use all sores of 
knowledge about the subject matter which go jar beyon® the sat 
oj axioms ana basic deductive rules* PLANNER itself is subject- 
independent t but its power is such that the deduction procasss 
never naeus to operate on such a level of ignorance. The 
programmer can put in as much heuristic Knowledge as he wonts to 
aoout the subject, just as a good tea char would help a class to 
understand a mathematical theory t rather than Just tolling them 
the axioms end then giving theorems to prove* 

Another advantage in representing Knowledge in an 
imperative iorm is the use ot a theorem prever in dealing with 
processes involving a sequence of events. Consider the case of 
a robot manipulating clocks oh a table. It might have data oi 
tne form, “block! is on Dlocki*" N olock;^ is behind blocks „ and 
"ll X is on y a no you put it on z, then x is on i, and is no 
longer on y unless y is the same as i u * Many examples in papers 
on theorem provers are o i this form fior example the classic 
"monkey and bananas 11 problemJ. The problem Is that a 
declarative theorem prover cannot accept a statement like £ Oh hi 
at jace value* It clearly is not an axiom of the system* 
sine*? its validity will change as the process goes on* it must 
be put in a form (Oh t»T b2 Sul where So is a symbol lor an 


initial state 0 3 the world* Ine third statement might oe 
expressed asi 


CrUHALL A ¥ Z 5 
CAhliJ 

(Oh X Y tfc^T X Y bJJ 
<UK 

(ZUUAL Y Li 

(Nur COlN. A Z { KOI X y &>>!))> 
in this representation, rU'l is a function whose value is 
the state which results from putting A on ¥ wnen the previous 
state was 5* *e run into a problem whan wo try to ask (uft Z » 
(Pul X f i J } i,o- is olock Z on O' i ocr. n after we put A on Y V A 
human xnows that if we haven't touched i or a we could Just as* 


CON L ft b )■ out in general it may take a complex deduction to 
decide whether we have actually moved tham, ann even if we 
haven^t, it will text? a whoLe chain of deductions (tracing Oat* 
through the time sequence! to prove they haven't seen moved* In 
PLAJMftErt, wnere we specify a process directly, this wnoie type oi 
problem can be handled in an Intuitively more satis jactory way 
by using the primitive function tKAbt., 

evaluating trRA5h (Oh S?r)i removes tKa assertion 
(DM &7X $ ¥¥) from th« data base. If we think of theorem provers 
as working with a set of axioms, it seems strange to have 
function whose purpose is to erase axioms* If instead we think 
03 the data bs&e as the "state or the world" end the operation 
oi the provey as manipulating that state, it allows us to matte 
great simplifications* how we can simply assert (dN tfZ! 
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* .T. ****#'c' 

without any explicit mention of states* we can express toe 
necessary theorem as; 

t-Uthlrtt l i"i c 0.rt bAA 3 

. ■ftlONSfcQU£NT (X Y Z) CkUT X Y> 

SOCIAL <UN S?X SYZJJ 
<J=flAi£ (ON $?X S?Z>> 

USStiAl (ON 5?X $ ? O > J } 

lhis says that whenever we wSht to satis iy a goal ui the 
iorm (PUT i?Y SJlf), we shOUlo first ilhd out what thing 'L tnc 
thing X is sitting on* erase the fact that it is sitting on z* 
and assert that it Is sitting on Y* could also oo a numoer oj 
Other things* syeh Os proving that it is indeed possible to pot 
X on v* or adding a list oi specific instructions to a movement 
plan lor an arm to actually execute the goal* In a more complex 
tdsei other interactions might be involved* her example* i] we 
are keeping assertions oi the form (ABOvk s2X &?Y1 we would need 
to delete those assertions whicn became false when we erased SOW 
%iX sjfz> and aad those which Decama true wnen we added {QN $YX 
sJY>* ANi bC LDEftl theorems would oe called by the assertion (ON 
SfX &■ ?f 3* to take tare of that part, and a similar group called 
tfiASlNO theorems can be called In an exactly analogous way when 
an assertion is erased* to derive consequences of the erasure* 
Again we emphasize that which Of Such theorems would be called 
is dependent on the way the data bas.fi is Structured* and is 
determined oy knowledge of the subject matter, In this example* 
we would have to decide whether it was worth adding all oi the 
AdOvL relations to the aata base, with the resultant neeu to 


Cnetx them whenever something is moved, or Instead to omit them 
□ na raxe time to heuuce them from the blx relation each time they 
are needed. 

Idas in PLANUtK, the changing state ol the world can be 
mirrored in the changing state of the oats base, avoioing any 
naan to maka explicit mention oi States, with the requisite 
overhead of aceuctlons*. This is possible since the in JOrmetion 
.is given in an imperative form* sped lying theorems as a series 
of specific steps to be axeCUteo. PLANNfcfi also allows the 
construction cf local oata bases celled states which are 
variants oi the global data base, tvsluation of PLANhtfk 
expressions is carried out relative to a local state- Thus 
simultaneous consideration can oe given to two incompatible 
states of the world by explicitly calling the evaluator to 
evaluate statements in tne two stated* 

If we look bach to tha distinction between assertions 
and Theorems made on the first page t it would seam that we have 
established that the base of assertions is the ^current state of 
the world*„ while the case of theorems is our permanent 
knowledge of how to deduce things from tnat state* This Is not 
exactly true, ana one of the most exciting possibilities In 
^LANNhJi is the capability for tha program Itsell to create ano 
modify the PLANHbR functions whicn make up the theorem oese» 
kathwr than simply maxing assertions, a particular PLAftNnp 
Function might tse written to put together a new theorem or maxe 


c.nanges to an existing theorem* in a way dependent on trie uaU 
end current xnowlecge. It seems likely that meaningful 
"teaching" invoices this type of behavior rather than simply 
modi lying parameters or adding more individual facts 
{assertions) to a declarative a&te base* 

hor example suppose we are given the following protocols 
Tor a function i* An expression such as "new lb * 4] 1 * means that 
we are introducing a new identifier which i 5 b * 4 * 20, 


U U) - XftJ£* 0=0 SO J 
Ihu s i i U ) ■ J 

i l J > = hALSfc* J =li 50 

1 * new I I — E J 1 'hUbi l^U 50 E 
Thus tt |i = 1 

it 21 * hALSt* 2=0 50 

2 * new 12-1 J rALSh* J =U SO 

t * new [1-] J TKUtt 0-0 50 3 

Thus it = 2 


if 31 = FALSt* 3=0 50 

j * new [ 3-1 J f-ALSt* 2-0 50 

2 * new [2-11 hAUb* 3-0 SO 

7 * hew [ 1 - 1 J ItfUhi 0=0 SO l 


Thus (f 3J = 6 

by the process PI "variabalibation* * we conclude that 
the above protocols ere compatible with thE following program 
which Is in the form of a tree (which we shall call the protocol 
tree). 


if x) - 1r x-u then t 

else x * new [Cx-tl-xxJ ij x-h then J 

else x * new lfx-1)-»x) if x=0 then 3 

else x * new (Ck—IJ—> xj it then i 
else.*. 


«vow l y ioenti lying indistinguishable nodes on the protocol tfea, 
we Obtain. 

if x> - ii x=u than I 

else x *ir tx—I >) 

lne render will note that 1 is in fact the jactorial junction, 
PLANNtH procedural ano th&oreJfts can oe taught in precisely the 
same tashlon (which we call procedural abstraction!+ r'or 
example the computer can oa taught to uuiJ,d a wail or recognize 
a tower from examples. The reader la cautioner that althougn we 
Shall SpaUK o l the computer being "taught"* we oo not assume 
that anything like what has been classically described as 
“learning 1 * is taking place, ne assume that the teacher has a 
good working model of the student that is being taught* The 
teacher attempts to convey a certain oody oi knowledge to the 
student. Of course tne student will be tola anything which 
might help him to understand the material faster. 
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WArChLtSS Is a pattern oirecteo language that is us«o in 
tiie impluqientation oi HLA-Ni'ith. y.AfbnLESS is both, in tria 

internal wordings of PLAhhtft ana as a tool in the ueouctivt* 
system itseir* MAICnLhbS is similar to otner structural pattern 
mstchirtg languages such as Cufrvttn- ft has oeen i/ssi^neti ■«itn 
tne following cons 1 aerations in mincn 


I. Thu language snoulo be very powerful yet simple 
constructs should be evidently compiled, 

4* functions must be able to be separately com pi lea. 

The syntax qiust be completely unambiguous as to 
which elements are function cslls T identifiers, an^ uata 
structures* 


4- jihe language must interface with PLANfifcfri in a 
natural way* 


h* The language shouio treat lists anu vectors 
symmetrica liy so that nor the most part the same program will 
run whether the structures are made up of vectors, tuples* ur 
lists. Ue do rat ions uetermine which form is actually useu* 


■1*1 r' 


n. J Jhu bynLax u J lciulil ii iurEn a no LiXprcbM oub 

n . t , I h 1 rt 1 i x Upor^lorii i or loan X i e i ur:* 

Ai» 11 . uiibal in pattern JiiiiL0hiIKJ Jl ul KJLJ eg e b wn; :fI k ..l I J ii| I‘jm 
(_oii_i Lan Li> like- J f j, (u b), CHiU (u E J <> >l to IUej LcJi hjIiJ/ 
themae!ves. An iuen li 3 it r wi J, J bo iiallciiLeu *->y a prolix 
u^fulur which will l--oil bow the ltJChl i I ior !!■ to l H! ihiuLJ* i-l>i 

example Is tiio vj iut oi Lho iueuti X 1 tr >: * J f * liu l> Llm v.j Jon 

fa J> 1 hell Ha will OJily IlLutdi {<1 Jj* rtti shida it U!>o a 11 / 1 “ Lhu 

location oi a*' J i or Lilt; local Ion outre lIjc value ui the 

idahtiiier x i & a Cornu* Hu ntseci to bo aula to cliany* the value* 
or an lottfitiiltir in a pattern, match, suppose that .:< haii the 
value J, li wt waten L rt the temporary value oi x"! against 

(j bJ t then x will umieulately be given the value (d ]he 

iaantitier x will Keep the vaiuu (a ul li the remainder oi trie 
pattern matched* utnurwist this value of x will revert to j* 

Note that mOOel o'/ teletypes obiitujata ly convert hie character 
-•'oack arrow 1 * to the character Ayciin tuppe^e- Uia t x ha±» thu 

value j* li hd match &*x L “the permanent value ol against 

( j bl „ then x will ijrimedite ly be giVeEi the Value (a L>) , tiowavtr 
the value ol a will remain (a o) whether or nut the remainder o] 

tne pattern matches* uric a again suppose that x lus the value j. 

I i wu match >iX 1 11 the suusuqu ari L value ol x ,p J a gain at (a bJ Luiui 
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tad varue of x will reuio-la J unless the rest or the pattern 
liiaichsif If the rtsit pf the pattern matches then x wiji te 
assicnea the value <a o). 

^,l*k syntax or repressions 

watchless uses Polish prefix notation tor function calls 
with the actual call aelimiteui by "l N ana tor example i+ z 

CJi evaluates to t>. If y has the value 4 t then {+ $Sy I j will 
only match b. Of course we use the characters *M 41 a no *’)" to 
•ueiinilt IlS'ts* Ihs value of ISSyi is 14) snj the value o j ( t* 

$sy l> [4 di S!?y> is Co i< a) 4}, if the lunttion cell is to 

denote a segment then it is oeliffiiteo ay '*t w and "> HI . fhe 
function rest will return the rest of the list that it is given 
as an argument* hor axarople treat [a b ell evaluates to lb cJ. 
but U <rest la b c>> e f) evaluates to U Pee f>* 

furthermore t la b crest Cl Ce I) g)> tU will only match (a b la 

f ) g J: >. ae use the characters “[ u ana " J‘* to ae 11 mlt vectors* 
vectors are storea in garbage collactea storage. The value of 
issy Ca PJ Ssy1 is 14 (a b) 4 J * Tuples era oelimitea by "![" 
and "T!"* They are stortsu tn the stacx whereas the vectors art* 
garbage collecteo* Otherwise vectors anu tuples are 
injistinguisnuole. 


iypea 

j;ia simple types onu Lbwir abbreviations arei 

\ ii lor pointer ror didJnpiu (a pi, a, gnu f ) 

k atoiiii t J 3 or dtrUiliit IC/ t; ^rji£.p f d a | foe, 1J, ^r. j r, ■ - J J 'j 

lor segment lor example g-, -j <a •■* u;-, l;.a 

list la l- t J has subsegments — * -a-, -a u-, -o u t- 1 ~o g-, nuj 

-c-* 

'HJi J 3 or [ixea point nAjraou r lor example t en-j '> v✓ 
U'*_UA"i / for Jl gating point nUUitier tOf dXample j f u t f I , 

ana ba.3 

1 rid rest oi tms section snogld not un redo until tne 
redder umidr&tangs pattern matching which is explained in 
section. 4,J below. Ine following types will not t,e explained 
h&re. Ihay are included only Jor completeness. ifte 
cojip ilea tea types ana their aLorevigtlons a fa 1 

utArWi type type-oi “argument s> for Kappa express ion t 

iLA^tUA type type-of'-argumentsJ for lamuoa expressions 

kAull ror activation, 

i d Ti ror state, 

iulttbl for bimiingi, 

iLJC typeJ lor location, 

tlUP type t tor tuple, 

iifcU typEfJ for vector* 


^j-iArJJjLt.O tor interrupt handler 
) for process 

ut.net can be aeflned, hor example the type number con te 

line-a as loilows 1 

4ueune ntNi {kappa f) (vel (fix) (jioat)j)) 
ue t ine the type Inti hi) (ie* nunibMar) to ds a type with no 
arguments which is the disjunction of oein-g a fixed or alodtlny 
point number. The type xpr which is an s-expression can be 
oa linen oy 

{define xpr {kappa () ivel (atomic) UlSt/))> 

An s-expression is O or atomic or a list, 

iueiine list (kappa {> (vel U tpair Ixpr) Uist))J)J 

A list is {) or the pair oi on s-expression ana a list. 

(define pair (type (((xpr) first)Ulist* rest)) 

(t-ajirst i=rest))) 

A pair is a list whose first element is an s^expression ano the 
rest is a list* The function make will construct tne 
appropriate structure for a type with arguments, inus bnaks 


tpciir (aJ (b c)l> evaluates to ((a* o c). Also (first (EaJ d 
cii is (ai anu (rest t-taj a c)} is fu cl, 

(■jejlrte property-list (nappe (> ( star (atomic! (xpr)>J> 

A property list Isa list of even length such that the odd 
rumoured elements srs atomic* ?he actor star is tne xlsena star 
of regular expressions, lor example the following are property 
lists* (J t <a (3>) T and (pi 4 hello (r 3 >) * 

(define complex 

(type (((num> real) (f mural imaginary )) 

(complex S=rcal t=imsginaryJ )} 

Ihe type complex has two arguments real and Imaginary which art 
numbers* The .junction "mante 1 * applied to a type- will construct 
an object of that type out ei lists or vectors, Ine function 
"erect 1 " applied to a type will construct an object Of that type 
out frf tuples, 

(maxe (complex 3 4)} evaluates to (complex 3 4} 

(real (make (complex 3 4)J> evaluates to 3 
(imaginary (make (complex 3 4i>3 evaluates to 4 
iprog (Cinuin) a bu 

(i This a comment* ne are inside a program. The 
identifiers a an-a o are declared to be oi type (numl ie number/ 
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i i in ihti assignment statement below the pattern 
Vcofflpiejt $«-a is enatchud against tne expression [complex j 

4 J .} 

(assign (comp lux S'-a s-p/ (maXe (complex j 4 /)j 
a gets the value 3 
b gets the value 4 

(real (assign (complex (replace 7> 41 (aiexe (complex 3 
evaluates to 7 

(prog (*ix) (((complexl (c (erect 1 JJ))) 

(real 4 5c)l will evaluate to l 

The expression tisfclLUC 1 xi will set the location i to the value 
x anu return the value ** 
isetioc 

(real 

iilidJte (complex 3 4 )} 
lot) 

4 } wi J.1 evaluate to (complex d 4i 
He can de line the type iTDP-JO Instruction es ^oilowsi 


tdedine instruction (type 
(((fix) op cooe ) 
tillxi accumulator,) 

((fix) indirect) 

((1ix) index) 

(<lix) aaoress)) 

(rielas 

((bits W dl J >*opcoae) 
((bits 4* 23*) s^accumulatorJ 1 
((bits ]* 22. } 5 =inuireet) 
((bits 4* $-inoex) 

((bits id. U.) *=aduress))) > 


An instu ration with, opcode tinu A in tha accumulator Jieia 

will cause t ha machine to halt* Aa can construct such an 
instruction witn ifliakis ^Instruction 2bA &)) which evaluates to 
tna j i x e u point number " 4 h 44 UUjMjUi*> 11 . 
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4,3 Simple Examples o i Matching 


The Toes or structural matching is fu ndamenta i to iha 
nATCliLbiSb processor* by .means of the primitive function ilS 
pattern expression} ^ tan determine ii pattern matches 
expression. The function "is" nas the value true if the match 
succeeds and U otherwise. Pattern matching takes place through 
tne use or slot ejects to change che value oj identifier to be 
that 03 tha object which it ii matching. The assignment 
statement in hATthLtSS is a ^orient oi the primitive "is M * ine 
expressions \ASulGN pattern expression! is well deilhed only ii 
pattern matches expression. The value of the function "assign” 
is the value od expression, 

A segment identifier is always assignee the smallest 
possible leftmost segment as value in matching^ below we give 
some examples o: the values or identifiers after assignment 
statements nave been executed, fra use the character - to 
delimit segments. The characters t and > are Useo to delimit 
function calls, 

iprog fa Uatemic! h) <*V> c) > 

\i This is a cojnment, we are inside a program 
in which we have declared a to be a pointer^ h to oe atomic^ and 
c to be a segment} 

ii in the assignment statement below the pattern 


jt s-h ) is matehe□ against tne value (( I i k u l a}» 

Hi (S-a a S*-h {(1) k o o aJJi 

a get s the ve lue £ 1J 
h yets LJt& VdlUt? b 

c yets the volbis -o a- 

iiid value D] the program is true winch is the value ui the 
assignment $c^te-iiitjr'it., 

tproy cJ ((atomic! hJ a! 

(is (5^c *H1 k ^-aJ Ca j b k qJ } j 1 
c gate the value -a j- 

h gets the value b 

a gets the value y 

iprog (first last (*?> middle!) 

(is (s^lirst S'-miodie ^iast! (a u c u} > J 
tirst gats the value a 
middle gets the value ^o c- 
last gats the value d 
(prog (a bJ 

tis C $-a S-b> £o)>> iaiis because there is only 
oHts element in tuh 

(prog f( (atomic! aJ> 

lis i-a (o c ))i tails. oacause (o tl Is not an 


atom. 
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An expression that consists of the prefix operator jalluweo 
by a iaenti ]ier will only match an object equal to the value or 
the identifier* 

tprog cC<V> ab 

Us (S^-a 5$a) ta o c a 0 c?}! 
a gets the value -a b c- 
tprog C(<?> a 

■ Us iS'-a x $Se ?-b) {abxdxabxoqUl 
v gets the value -a b x o- 
b gets the value -q- 

An expression that consists of the prefix operator freaa the 
value given! follow so by an Identifier will match tne value oi 
the identifier i t it has one t otherwise the identifier is 
assigned a value, no shall use the pseudo atom bovAJ-ur* to 
indicate that an identifier does not have a value* 
tprog fa! 

\is S7a t )l 
a gets the value t 
iprog (( { iixJ £ a bill 
Us &7a 4)1 

a is initialised to b on entrance to the prbg* 
Consequently the assignment statement fails, 
tprog a>> 

Us U^a s?a! (a o c c b aJll fails because once 


a i a assignee & valua, a cen only ifeabch s segment that is ^que 1 
to tne value oj a. It □ pattern in. an assignment statement 
cannut mutch th« value of the saconci argument Pi the assignment 
statement then the assignment statemefit returns tba value tl, 
otherwise the value t, 
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4,4 Frimitive forms 


^.4.1 Functional Forms 

Functional forms begin with the atom lambda or the atom 
bindlflflicoa* They loo* Hjlb* 

(LA.MdLjA type list—a f-parameiers expressions) where type 
is the type of value returned ano the value or the lorm is the 
last expression in expressions. If the list of parameters is 
atomic th«h that atom is the only parameter and it is bouno to 
the list ot unevaluateu arguments. Function^I forms that begin 
with tne atom binaiamboa have the iorm '(biNULAmBiM type tllst* 
of-para meters binoing-toentifieri expressions)» For example 
■U lambda x $$x) a o ci evaluates to {a b c) 
if the lirst element oi the list oi parameters is a type then 

there is just one argument which is a tuple oi that type. 

tdamboa Htup x) U $sx},i jj a I 33) evaluates to 

M where ttup igixl} Is the type oi the tuple oz lixeo point 

numbers. The function l selects the first element oi the 
tuple. 

utherwlse wa will have a list of declarations 03 identifiers. 

tc iambus Cx) $&x) i* j. >> evaluates to a pointer to 3 The 
function 11 is Quote. Note that the value is not the fixea point 


number 3 


i (. lambda (x 3 $fex) a) evaluates to a 


Uiamboa Itix} U i fix) xJl SSx) { + J <;}} evaluates to 4 

Ulamboa Ulx) (CtflX-) x)) it ssx I}) 2) evaluates to j. 

Ulambda Ifix) ((i tlx) x) uru) yJ) {+ ssx 5i>yU 2 jJ 
evaluates to b 

I 3 tm lciinti Her is of type i H > then the corresponding argument 
Is not evaluated* 

i( lambda ££{ J '} x)) $$xJ 31 evaluates to a pointer to j 

U1 amooa (£{“) x)> $6x) el evaluates to a 

{(lambda ££("} x)} S5x) t+ 2 2)) evaluates to U 2 2) 
runctions with an. arbitrary number oi arguments are accomouateu 
by passing a tuple which contains the evaluated arguments* 
buppose that vs? already have a function plus which will ado two 
numbers together* 


(define + {lambda { dixl £ltup { fixli x) 

<? the type ttup {flxli is a tuple on fixed point 

numoe r$} 

i for { jlxl 

ffijixJ {result if)! 

{; declare the ioentiliar result to be fixed 
point number and Initialize it to uJ> 

{{test 

Us i 1 1; ssx> 

{return SSresultj 

each time before executing the loop 
test to see if x is the null tuple and If so then r&turn the 
result}) 

(stop {assign s*x {rest s&xJi) 

{» alter each pass thruught the loop 
assign x to the rust of xU 

{assign Siresy.lt tplus <{ sfx} &5resuit}>> 

M the body of the loop is to aod the first 
element oj x into the result}}) 


i ” — r 


l+ d ^ 4/ evaluates to V 

4*4. ^ Macro forms 

Macros are expandeo by the interpreter* by the 
assembler, ana by the compiler. Ihe results are respectively 
interpreted, assembled* ape compiled* Macro dorms loox line 

(MACtib list-o l-paranneters express ions J Ths expansion or 
toe macro is the value oa the last expression* The function 
genbraces nlII generate a pair of Graces* tor example <1 
tgenbraces a bi 01 ^ill evaluate to < i (a b) 61. 

iJeilrte chop (macro <x ) 

fgenb races setloc 
S$x 

(genbraces rest (genbraces content $5x111)J 

The macro chop will tafca a location as its argument and cause 
the contents of that location to oe changed to contain the rest 
oi the previous contents* 

1 chop 5“y> will expano to Isetloe s“y frost (content 

5 JJ y>> 

fte coulo have defined the function + as a macro as auJlows* 

(define + (macro x 
% cono 

Hi s () \rfcst $$xll 

ii if the rest of x is () then the answer Is 

it) 

it 


\.i otherwise we want to expand to Lhe suiu of the 
second element of x anu of tna rest of tne rest of xJ 

kyenbraces plus fcsxl tgenbraces + <rcst s$x 

2 > ) >) ) 1 ) 

T hus 

\+ 3 i 4) expands to tplus J (plus 2 iplus 4 P)/) 

4*4*3 Actor s-orms 

Actors ar# used in patterns to match values* Jhe 
primary ai lierenee between functions and actors is that 
functions produce values while actors match them. Actors ana 
functions take their arguments in an exactly analogous 'fashion* 
Actor forms begin with the atom kappa or the atom 
binokappa* They look like* 

(KAPhA type list-of-p&rasneters patterns) 
fBlNUKAPPAtype (list-of-parameters binding-identifier) 
patterns) where type is the type u] vylu-y matched and the form 
must match ail or the patterns* If the list of parameters Is 
atomic than that atom is the only parameter ana it is bound to 
the list of unevyluateu arguments. J-or example 

((Kappa x .ssjeJ a b cl matches only (a b c) 

If the Hrst element cl the list of parameters is a type then 
there is just one argument which is a tuple ol that type* 

Uicappa c itup liixJl x) ssx) I 2 31 matches only : CI k 
3JI where iflxfii is the type of the tuple of fixeu point 


numbers * 
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Otherwise will nave a list oi declarations of identt liters, 
tctoppa \ tr j)J matches only a pointer to 3 

IE Kappa (jO S&x) a) matches only a 

ttxappa irtxJ EE 1 list) x2> $ax* { + d z)) matches ojily 4 

Uxap-pa UixJ (£<flx) xil E> S$x \)) dl matches only 3 

Unappa i iixJ 1 Uifixi x) Eifixl y>J i + SSx SSyJJ d 3i 
matches only b 

la an identifier is of type t* 1 ) then the corresponding argomjnt 
ia not evaluated* 

it Kappa (< t> x)> ssx) matches only a pointer to 3 

Uxappa Ul") x)J SSxJ a) matches only a 

itxappa xJ> 5?x) t+ Z 4)} matches only i* 4 4) 


K 


4*b Actors in patterns 


Examples oi actors ara vel for dl sjuncL ion t non lor 
negation, et lor conjunction* ana star aor (Cleans star in 
general regular expressions* ha use the characters < and > to 
delimit actor calls that are to match, as segments* 
tprog (a b cJ 

it wL- are insiae a program* we hove 
oeclareo tne ioenti iiers a D ano c to be pointers. In the 
assignment statement below the pattern tA <et s~a $ , -cJ will 

be match-so against (jc k y z>* Ihe pattern <et $*-a S'-bJ' will 
match an expression only i t noth S-a and t^h- match the 
expression *) 

iis (ic <et $«-a t^cl (Jt x y 2J.}} 

a gets the value lx y) 

b gets the value C* y) 

t gets the value z 

Cprog U<?> x cJl 

Us (s^-x <vel cthl ttw>x $-c) ia o tw th>,u 
x gets the value -a o- 

C gets the value ^th“ 

iprog ixJ 

iis ftstar a> S-xJ (a a a a>>) 
x gets the value a 


"liw argument oi the if actor is a list- oi clauses, If the 
object that the actor i] Is trying to match has the property the 
J, t Hatches the first element 03 one of the clauses then It must, 
match the rest of the elements In that clause* 

Iprog i f i fix} * ) > 

Us Uf Ufixi S*-3il) 3>> 

x gets the value 3 since 3 Is a lixea point 

mu racer, 

lhe argument of the actor when Is a list o[ clauses. If the 
lirst element of one oi the clauses evaluates to true then the 
object that the actor is trying to match must match the rest of 
the elements in the clause* 

Iprog ((y t > i 

Us iwhen ($Sy &-yU fa bjjj 

y gets the value (a b> since it was initialized 

to t 

A number of actors are.defines below, For example « Is quote, 
Inus t” $Sa> will only match &&a, A palindrome is defined to oe 
a list that reads the same backwards and forwards. Thus fa ib> 
toJ a), ana ffa hi fa h-)) are palindromes. More formally in 
rtAIChLbSb* a palindrome can defined as an actor of no arguments* 

■f da fine palindrome 

[ Jid pp a f ) 

1 i palindrome is a acto-r of no arguments! 
fvel 


C) 

U e palindrome is either O orl 
i$eme lx) 

U let x be a pointer to che 

first element 03 the list* Also x must be the lost eluent oi 
tne list with a palindrome in bet ween) 

(S^x ^palindromes $sx 3 )J)J 


i-or example 

Us tpa linoi-ome) la t 1 aJ> is true* 
inn rorm xappa is iixe the lamoua of Li5h except that It is usea 
in actors instead o: tn functions* 'lhe anove definition reads 
‘'a palindrome is a list such that It is U or it is a list which 
begins any enos with X with a pallnorome in between* 111 Tne actor 
same causes the identifier x to be rebound to the pseudo-atom 
tiGnALUc every time that pelinoroms is tailed* Th# actor reverse 
is defined to be such that Us ireverse Ssx> &&yf is true only 
if the value of x is the reverse oi the value of y* I he 
definition of reverse is 


toe line reverse 

{kappa lx) 

U f 

( latomic } 

U it the object being matched is atomic 
then it must he equal to xi 

S$x > 

Usame <first f<V> rest)) 

U otherwise let first oe a 

pointer to the first element of the matching noJett and rest u« 
the segment of the rest of the elements o] the matching object,) 

is*- first Surest) 

U when £<reverse (rest)* 
ssiirst) matches ssx we ere tione) 

(when fils 

£ < revs rse C5$resfl> 


$$ ]lrst) 


isxjj >>> >1 
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x y z)} (i y ai} Is> true 

1 the ideas ror tne actors come from Post 
ral regular expressions, tLhoi T ii^ObOU, 
will use UJjJ to designate the expression 
match the actor calls being oeiineo ds|ow + 
ol the U£e of th«Se actors eiterwaru- I‘ne 
■j to match a pair of braces- Ihus loraces 
Tha function gengracss will generate a 
xpression tgenuraces 1 21 will evaluate to 


rfv.s.l Primitive Actors 


4* u. 1«I Control Primitves 

ihohl pattern! will match an object only If pattern does 
not match tha object- Ihus Uion cl will maten a, but tnon a> 
will not match a. 

i'VtL aisjunctsl where aisjumcts is of type segment will 
match an oojact only if some disjunct in turn will match the 


object. 


cimjunctsj where conjuncts Is bl type 5@gii.ent will 
match an object only il each conjunct in turn will match tne 
object. 

i ir typ@ clauses) where clauses is oi type segment will 
match an object il the lirst alumsot of" some clause In turn will 
match the object and tnen the rest Of the elements In that 
clause match the object* 

tproy Cx y) 
tls 

ill Cinum) S-x 3 ts-yj) 
too) 1 

y yets the value loo since loo is not a number 
l-SAMfc type declaration patterns) wnere patterns has the 
type segment will match an ooject only if eacn pattern in turn 
matches the object. The actor sbrna Is liM the actor et except, 
that it declares its type end Can declare identifiers* 

i assign isam@ ( x3 5-x ) 4 i 
x yets the value 4 

tFAThRQo typu declaration body) where oooy is bf type 
segment is just Jibe the function proy which Is described below 
except that instead oi exiting by calling the Junction return It 
exits oy calling the junction true? or the junction raise which 
are uascrioea immediately below* 

Q'rfJt? pattern expression bindings) makes sense only 

wnen evaluated within the actor patproy* If pattern marches 
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expression ano the rest the match In which tne patprog appears 
sjcct-tius tudii the patprog is exited,, OtherwlsCi thft value oj 
tne lunction true? Is a massage created by ths ]ailufe to match* 
irALbc message} causes ths generation ol a isilure with 
a oiessage thy value o± message* 

tr.. 1 EFm type clauses) where clauses is oi type segment 
will evaluate the rirst element or eacn clause* 1 1 the 
evaluation is non null then the rest oi tne elements In the 
clause must match the object that the actor rtjihfl Is attemptiny 
to match* 

I prog t( tfix) (y N > x J 

Us twh«n (US *-X \* $ty \ >) U 5$x 


4)1 


x yets the value l 

theta) will only match an expression which matches 
the ioenti Her theta* 

U? theta) will act like iSS theta) it the iaentifier 
theta has a value, Otherwise is? theta) will match an object x 
only ii the ioenti lier theta will match x* 

is* theta) will match any expression x much will watch 
tne Identifier theta ana will give theta the value x. 

t$-*- theta) will match any expression x which can match 
tne ioenti Her theta* Thu ioenti Jiur theta will ne given the 
value x except that ii the pattern tails to match then x will be 
fastorud to Its previous value. 


\$i theta) will math any ex press I Oh x which can match 
the rcienti iier theta. Ii the entire pattern matches then theca 
nitl be assigned the value x* 

4*0* 1*2 beta btructure Primitives 

4*o*i*2*f Pointer Actors 

tVi will match any subexpression. 

U nJ -will match an object only ii the object has length 
the value of n* f j or example the following are true* 

Us i V) lb a cJ) is true* 

Us i <t>) ii} is true* 

Us (a *V>> (s)> is true* 

Us fa <?>) (a b)) is true* 

Something oi the form i u x) wili only match an object 11 
the object is equal to k* This is just another description of 
the actor " which is quote, hor example t" &$a) will only match 
$5 a ano 1“ a/ will only match a. 

iSTAk patterns) will match an object only tf the object 
consists oi a sequence (including the null sequence) of elements 
that match patterns* ror example (star Ji wili match £3 o 3) 
and fa tstar o c> e) will match (a (b c) lb c) s), 

iPAdbfcH patterns; will matnc an object only if the 
object consists oj at least one sequence oi elements that matcn 


pattern 

s* tor exa.ii 

pie 

(dagger 

ifix ) ) wi 

U 


iOPTlUho sequent- 

e-of^pa 

ttarns) wi 

a 

e ieiLlefit 

s which match 

a S 

uDscque 

nee oj the 

6 

1 r bin i a 

ft to right. 

t-or 

exatjipl 

e (.options 

a 

Hid c ch £ 

a 0 ) , 






u'h.-illt arg/ 

wi l) 

mat ch 

any object. 

- 

prints 

the value 01 

arg* 





t — xi will 

match an ob 

ject only 

1 f 

to the 

object* 






ICulIiAINS pat) w 

111 mat 

ch any ocj 

ac 

pattern 

pat. 






S.Gu liny contains {uinowepps 
U the identifier n 
bindings that were in force Delore the rune 
entered i 

i * the function ton 


argument which i5 not 
arguments) 


evaluated) 

it w*g ir.ust mexe y 1 


U the function vai 

expression relative to a set 01 bindings) 

(,; the function, gen 


its arguments with brace si 

(.container tvai tge 

O 5&y>j 3*0)))) 


(cefine container (kappa £f 
(, i CON'IAJho is an a 


argument x which is a kappa 
enu taxes no arguments! 

Ur 


matching 00 juct then we are 


expression whic 

U*3x) 
u it the a 
acne)) 

( (atomic/ 

11 i 1 the it 


match 

match a sequence o 
equence-of-opcions 
(fix) (atomic// * 1 !/ 

As a sue afreet it 

the Valua oi x is eq 

t that contains the 

(<(!"> y ) J o J 
is boOnd to tne 
tion contains was 

tains takes coa 

nto an actor with no 

will evaiuatB any 

braces will surround 

no races actor (kappa 

i xa ppa t > ) x ) J 
ctor with one 
h matches pointers 

ctor [Patches the 

atching object is 


atomic then fall/ 




t false; J 

{C container &->x^ 
t: if thu lirst aliment in th^ 
matching object contains x then we are uiOneiJ 

(ii else the rest of tn^ 

ludt; thing object nAi&t conta in xi 

iiii <container !>> s*)) j > 1 

tbhAbrj location! v-i 11 match an ouject orii> ij location 
is a type that can hold a type of the tne type ol ouJ. lj tnt 
rest Qi the match succeeus then the location is snuashBU to nolu 
tne object* 

tprog, {t f fix) ta 1 JJ) 

Us Ismash v J, a! <!}! 
a gets the value ^ 

iKtHLACu xi will match any object* li the entire 
assignment statement succeeds then ObJ will be replaced with x. 

tprog tyJ 

Us iet s'-y Mrepleca ai ^replace 

ic d >1 

y gets the value fa mi 

iCflWlLhT patJ will match &fi location whose content 
m-dtehes the pattern sspat,. 

tprog (< i fix! fa JJ o) 

tdssign fcontant $-bj 
d gets the value J 

fLoCAllGfr pat> will maten an expression whose location 
Luatcu^s the pattern SSpat* 


tprog 
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f {i lot W ! 1 y 1 > 

li s [ t V ) U oca cion i-y ) </>J (a b c i i 
ire tu rn i in SSyJU will evaluate io u 
{tmWLUb X i Kill generate a new location oil the ate ex. 
noiciiny the location o2 x* 

tin igenloc will evaluate tu j 

d.o.l*^*d Atom -aoo Property Actors 

iAiTO*ili-> will only match an atom. 

Us ^atomic! ai is true. 
lhAo properties! will match any atom with the 
appropriate properties where properties 15 0] the lorm 

{Indicator! valuelJ {inoicatori valued).** The absence 
or an indicator on a property list Is exactly equivalent to tn Q t 
indicator Oeing present with with tha hull value* fhe actor 
“has" allows MAHJhLthS to po pattern matching on arbitrary grapn 
structures* atoms represent tne noces o i a graph; their 
properties represent the lints between nooes* Tne example 02 
tne syntax or bit?J- given below shows how we can write grammars 
over graphs* Ihe idee of developing pattern structures over 
graphs has oeen generalized ano extenoed In r'LANntn* 

Iwilh pattern properties! will match an expression suen 
that its rirst element matches pattern and the result or getting 
the value of Indicator will match value* The actor with is use a 


in rTAMJcn to match expressions that wight nave property iisLS* 
lolv't properties! will match any Lise or atom whore 
properties is of the form ,(indicator value),*,. 1] Lh^ 
entire assignment statement in which the actor succeeds then the 
value of value) will be storeo unoer the value 0 J intilcatorI * 

noro anc Numbar Actors 

fKUM! will match 0c J only it UtsJ is a a nu-noer* ror 
example tnuin> will mutch J. 

iLaob n) will match any number less then the valuti of n» 
itlHtAl tii ni will match any number greater than the value 

0 1 tu 

triLLLb spec i ll cat Ions I where specifications is a 
segment will match any fixea point number which meet each 
speci li cation 03 a field In turn* A lixeo point number x will 
meet a specification or the form foils pattern) only if the 
number which is the byte of x ue fined oy bits matches pattern, 

ffields (koits 3* U*J 4) Cto its I, lil will 

match a fixeo point number whose lower J* bits are 4 and whose 
Sign oit is on* 


4 * 0 ,1*2,4 List Autcrs 


An expression ue limit to by M C"' arm "• i" win only me ten a 


1 lit - 


4.o. t *k#s sector cf iq Tuple Actors 

An expression uelimitao by “l" afia H J M *ii.l only matcn u 
vector or a tuple* 

4*b* l*^,o Algebraic Actors 


ibOri terms rest^of^terms ) where terms is U] type segment 
will oiaton a sum ot terms such that the rest or the terms matcn 
the pattern rest-o f-terms# 

{is {sum a b t?i) i *■ c b aJ> is true* 
tprog i y z x ) 

tis {sum let {non c> s^z ) &^y S^x^ 1+ c 


b aJ.JJ 

i gets the value i> 

y gets the value c 

x gets the value a 

Iprog iy xJ 

lis {sum S^y b S’-xJ (+ I c b o))J 
y gets the value t 

x gets the valu« (± d e) 

{bJi'ii-bh term sum* will match any sum of terms that mat oh 
the pattern term such that the sum of such terms snatches the 


par ttrn sum# 


{prog {y) 


A ) X d i J }} 


Us tsuifj-oi iproduct x t 'J J / S-y } {+ f * J 
y gets the value <* £*■ x a) {* 3 xU 
UriQubCl lectors rest-oa.-factors* where lectors Is 03 
type segment will match s product or iactcrs such that each 
factor matches a pattern in taeto-rs ana the rest of the factors 
match the pattern rest-oj-ractors. 


tis iprooutt b b c* ■£* c o L i) J is true, 

J\ 

tprog (x yJ 


£ + 2 a) 3 a) > j 


Us ^product let trium) b-x) s-y U ) ) { + 


x gets the value 3 
y gets the valua (+• 2 n't 
iprog fx) 

Us iproauct j S*-X 1) u); 

x gets the value u 

tPrtQULKJT-Oj- lector product J wilL icatch any product of 
rectors that match the pattern factor Such that the product of 
such lactors matches tne pattern product* 

tprog < a ) 

Us tpr&uuct“-ot UnOh tnue)} S-xJ 1 t“ a 


b 


j 


X gets the value £* d aJ 

tFhffitk base exponent) will match an exponential* 
iprOg tx y> 

Us i power &^x 5-y) (** y 2 ) ii 
X gets the value y 


y gets tne value 2 


(.prog (x yj 

(is (power a-x §<-yf u )i 
x get s the vulue u 

(prog (x yJ 

(is 1.power s*-x *■->■> I/j 
x gets the value J 

(prog (x yi 

(Is (power (a-t iTi-Ocsi | } s^jjj■ l i / 

y gens tn« vilge U 

iCjgfis.uix lector terms rest-ur-tanus! where idrms is or 
type segment v<ili matcn a sum wnere d factor inai ,:iatcries the 
pattern Sector appears in severe! teriiis* 

i ia isu.n «coMon x (stiia J a) ('/>}> yy £> ( *■ a x) y {* j 
xi) is true. 


(Jeilftt* quadratic 
(kappa 

[ X fiXappd £>i d. ) Hxap-pa (>i dJ E (Kappa £ > I C > J 
( SU1.1I 

<common 

(power $$x zl 

let (non uj (nun (contains $sxJJ U?a,i/> 

<Li; IfLili l:J 3 

SSX 

tut (non (CDhtalE^s $sx/i ^So);? 

(et (non (contains S&xJy (sk))i)) 


inus ir 

(prog cntrl sptcialjoi hi ci }) 

( is 

(guauratic 

y 

(actor (Kappa (J 
(actor (tappa U $ ta OH>> 

(actor (Kappa (J ) )i 

(•+ a £ w j y J £ * z ( *■* y z J 4> ( * c y j i }) 


then 


ai gats ttiu value (* 4 z) 


pdQii- J <L 


ul gets t ha value [ +- t d) 
ci gets tne value a 

4.j,i examples or the use of Actors 

'ine rest oi our examples or the use ol actors wi 21 come 
iroiu yiviny a rigorous aerinition oi the syntax or Lisp in 
WAiChLtSS. Ihose reauurs wno are not inttrested in the retails 
need not read section 4 , 5 ^ ihe folio-wing graminrfiar accounts icr 
essentially ell the context dependent restores ol the LlijH 
syntax* It specifies that a runction call must have the right 
nuiooer or arguments. An explicit yo must have a tey to wnicn it 
can yo* The syntax specifies tnat some identifiers are free and 
others ere oouno. 

(aafrne top-runet ion Ctappe i) 

t same 

C C t < V > special) ft^gs f)) (pounovars 
(lamboa ivarlistl (for.mUi)) 

Ihus for example vtop- function) will match (lambda (j £)>* fhe 
actor top-lunction introduces the pattern identirlers tags ano 
hound vars ano binas them to - ** which is the null segment. 

£ueiine veriist (xappa C3 
t star 

(same 

{( toiiiic ) curvar) £(<2> special tree) 


OQUnuVafS )} 


Sn-curvar 
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twhen ((is (S'-boundvars) ( 5$curvur 
s *dou nu Va rs i ) } ) > > J J 

'Jhd actor varlist checks each tnenti liar in turn to make sure 
t ne t it is an atom ana then puts t he identifier in dou n bava rs. 


(be line 

for.ia (kappa (J 

ti 1 

( idtuinit j Wei (constant^ (var^H 
< 

{ idtoiriLc:; <■£>) 

Uf 

ft prog <. J >i (prog form J J 
((cond <?>i i conuform 't ) 

■ftsetq <?>) (4?) ivarj < ldrm> J i 
((go <^1 (goforrajJ 

(((has (Csuor i H))j <£>) ({'Hi <sta r (foriajs-j) 
(tihas ( twxpr (V;ii) iexpr jonu )) 

ftthas Cifexpr ii'ni) <?>) i'ii) 

(Ubas ( C isubr <■'£>) i'ii) 

{(thas fQsubr <?>> £(?) cstar i formi> i i 

<((bas Cfiexpr £ir>)j; <£>i (\i) <star tform}>J> 

( 

U) 

(Same < exprJ s-expr twrite C&&e>:pr 

Nuclei ineuJ > > j > J 

(i t lambda < r t> >) i iambda- Junction i i 

f (r J ftformJ cater (formJ>> J J J ) 


lb* above Je Uni lion says that ii a form is an atom then it must 
be a constant or an 1 outfit* fieri U its first eienient is an atom 
tban ii it begins with the atom prog t then it must be a progform 
ate** i i it begins with 11 (naifibba 1 ' then it must be a iamboci- 
function; otherwise it must be a form followeu by a f orriiliat. 
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(cieiine constant (Kappa (atondc , 1 (i Wei t i> vnum ) i t) 
i.se only constants are t, {}, arm numbers* 


t j a i 1 j i e 

var £ Kappa (atomic; (> 

■l SaUlS 

(£(atomic! corner} <W7> special rreeJ oounovsrs) > 
s-corvar 

tvdl 

(.when ( Vis (<?> Siourvsr <■'{>} ( Sobounovars) ) ) t 
twrit-e f&ecurvar unuouiu.1 i t J) 

An ioenti ai«r is either in boun-uvars or it is unbound* 


(del iiie conoforiii (kappa (J (coriu ester f <star (fcrm/>> > })) 

(dellne 

progrorm uappa u 

YSatlle 

C 

((<?> special tree > tags bounuvarsJ 
£(<?> special} 

(tags ( Sstags J} 

£locaitags ( } J 
(boundvars (ssbounuvarsJJJ} 

(prog 

(varllstJ 

<et 

(collect“tags! 

When ((is W^tegSJ (Ssioeaitags WtagsJi}} 

(star (or ta tonne! vrorJi)ii >}} >) 

un entrance to progrorm cags arm bound vars are redound to tneir 
previous values* Jbe prog identifiers ol the prog -ere put in 
bounuvars T the tegs in tne prog are put in tags by collect-tags f 
ana tne booy oi the prog is checked to see ir it is well formea. 


( J d J 1 l'j d 

COlltct-Lags Wappa (} 
(star 


(vd 1 


4 » D p&Qd J 0 


(saine C C tatcwni c) cur tag) C(*7> special) 

lOCdltuLjS )) 


( £ ■? 1U to 1 c □ g s i) 


SUOual tags ) / } 


i^curtog 

When < <l is {*>> sscur tag <v>i 

iwrita (multiply tag ^curtegm 
< U«-ioc*Itags) £$$turtay 

i W>f )J 


C j tf r ij'ie 

t; upr form (itappa ( ) 
i Some 

(ergs iamfcoe war1 
( 

thas CCexpr (lambda 5“laisiDjavar < / >) j) > 

<et (star iformJJ *«-args>) 
tfcheri {(is (same-nuio) C^slaniuoavar j j- j j 


An expriorm is a call to an expr with the correct number or 
^rguiiients. note that iiiini'H , g.isteLy msipe the octtr expriorm th.ti 
ijenti i i b rss args anti lambaavar arj bounc to tn& pseuoo atom 
hdVALUb* 


Cauline 

isrEie’Fhjm (kappa {> 

(vel 

co tn 

(same 

cc<?> a b)) 

S«-a) (iV) s-o)J 
(whbp (Us tsaum-num) (Cs&a) 

Ina pattern isaine-num / will match any list witn two elements 
provided, that the elements doth have tne same number of 

elements* ror axampie it will match, any of the lollowing lists* 
((KJ), { (d H b J J t f(l ^ jJ (j <; IJ)* 


ill. 3 psgu Ja 


( au line 


go ICTIIj ppei ( ) 

\ JU 

\ ir 


{04 Lu-ja i 1 


tJgJ lit) 


(latomic > 

tsame (cortag li<l> special ireeJ tags?) 
t-curtag 

i or 

(assign (<jf> 55curtag «*■>} 
(write is&cUftag Lmdtf 1 i ritfo 


( (rornod- > i ) ) > 

A go lorn) is eitner art explicit tali to go to a tag which Wfwst 
In St tags or a computed go* 


be 


(dal in a 

lainoua-function (kappa () 

(same 

(args iambdavar) 

( 

1 Pa If.tJ 

( 

((<?> special free) younyvarsJJ 
((<}-> spec tail (boynyvars 

f t> sbudnava rs )U) 

( iamocia 

(et ivorlistj i-l4umoddydr> 

(form)> t 

<et (scar laorm}J t'-a rqs>) 

(when ((is (same—numJ ( laiacoavar $targs> i > t ))) 

In a lamb-aa-function the bound tuenti u«rs of the lambda must oa 

e-Joeo to oyunavars ano tne lamboa"function must have the proper 

number or arguments. 

lha above syntax could easily ye extended in several 
directions. hor example me could easily modi iy it so that it 
vouio accept type declarations a no up type chacjclng* I he syntax 
Ql ptA'luHLcoj- coolo easily oe oeliiwu in MATCHLESS. 


0 Primi Live rufic^ ions 


primitive Rinttions 

examples of the values of various expressions are given 

balovi [ 

a evaluates to a 

(a b c) evaluated to (a b tl 

i" $S &i evaluates to 

1 . -r 3 evaluates to j 

<a b i* d 3H evaluates to (a o o* 

<a o < M Ca'bJ>J evaluates to ta b d s) 

11 a nas the value 3, then tl($5aJJ o) evaluates to 
U(3J1 D> 

4,6* I. I Control Primitives 

4,6*1 *'1.1 Single process 

{16 pattern expressions is true only ir pattern watches 
tne value oi expression, 

(.Atiolbh pattern expression^ is aefineo only if pattern 
matches expression* The value of the ■junction “assign" is the 
value oi expression. 


i F.’dtib type declaration buoy i where the idej.tlrier buoy 
is Qi type segment* it control Jails through thy uotto.u or cna 
function prog then iL taxas as its value tne value o* tht last 
i Ld i ^,jioivc or the oouy . 

i ; CiiwjMtKIl a comment which will not oe seen by the 
irittfhpreor the compiler* 

tug tagl will transfer control to the place asjineci oy 

teg. 

ibu activation! will restore the activation anj continue 
processing irons there. A declared tag is a local identi liar 
which nas as its value the activation, de lined by the tag* IJ e 
tag is uticlared t it must be declared in tha ulucx neao of true 
block in wnich it is a tag* "lhe following expression will raac 
in tne currently open file ana return the elements 01 the rile 
in reverse oraer as its value* Ihe iunction my-road transfers 
to its argument when it reaches the end oi file* 

iprog (((value (J intact! enc-oj- file J ) 
it the segment identifier value is 
initialized to the null segment and the activation end-od^tiie 
is defined oy the tag oelow.) 

aga in 

{assign ($*value! t(my-read Sseno-of” 
rile! i-Svaluel! i \ Ii there is another expression in tne riie 
then put in value else go to eno-or-fiiel 

{go again! 
enu-or-jile 

{return £SSvaiueJ>> 


(hcTUW h X! will leave the current clock with tne value 


x 


it a IT x) will leave the current function witn tnu value 


X i 

i,CA iCfi x pi will attempt to evaluate x, ll an error 
occurs in toe evaluation then tne value of the function catch is 
tne value of p* otherwise the value of the junction catch Is ths 
value ol X< 

type n Or expressions! where tire icentLjier 
expressions Is or type segment will return the value of the nth 
expre Sa-lon, 

lease j of a b c> evaluates to so 
ikULt type J-QtJ x clauses) will give a rule for the 
expression x* The value of x will oe matched against tne first 
clamant of each clause until a mutch is lounew ir there is only 
one element in the clause then the value ol the function rule is 
the value of x, otherwise the value is tne value ol the last 

element or the clause* 

trule lor b (ttlx))! evaluates to b 
tprog fxJ (rule lor e f$^x ts&x 
evaluates to ta a) 

(.rule ior C to eJ> evaluates to O 
tiftrULt predicate expressions! will execute the 
expressions while the predicate evaluates to true. it is 
equivalent to the following* 

tPKOU U 
AUAIh 


iUOWLi 


1 1 WOT predicate; 

IHbTUita i)i)> 
expre ssions 
iuQ AbAlNJj 

tVj^iiL predicate exp rassions.) will execute the 
expressions until the predicate becomes true* It is equivalent 
to tr^e following* 


i FHOu () 
AUA Ifl 


iCUNU 

(predicate 
iKtTuiiN (>})> 
expressions 
tub AGAIN}) 


tf'Uii type declaration 

((INITIAL Initial) 

CSTfcP step 1 

QtST predicate test-action)J 

body} 


where the identifiers initial! step, test-action* and body are 
cl type segment is defined td be an abbreviation Jar the 
Idllowing where LQuP is a unique generated lacel 1 


iPtfOu type aecioration 
1 nt 1 a 1 

LOuP 


iChiib (predicate test-act ion t HETU k hi ()>>)) 
body 

step 

tub LOOP)) 


Alternatively! we have 


irOlii type declaration 

((INITIAL initial) 

(ItsT preoicate test-action) 
(LI Si item condition) 
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(bTkp s tup J ) 
bouy t 

*here tile identifiers initial, sttp, and ioooy cure 03 type < l> js 
iiid Lne for loop previously described except that tne value 0: 
the tor statement is the list or all the items sucn that 

cot 101 1 ion is true* It is equivalent to the following although 
it is implemented mucn more efficiently because it only opes one 
cons for each Item in the value* 


xFttOO type {declaration CiKpr) {UdLLaCTtu £)JJ> 
tt declare CULLubTfcD to be an s- 
eypression initialized to nil! 

initia 1 


AbAliJ 

iOjHb 


booy 

tCGNu 


COLLkCTcJj if conoit ion is met 
identity function; 


{predicate 

te street ion 

tkfcTUri^ & 6 C 0 LLtCTbLJ)>J 


£ cdnoition 

h. t auo item onto the ena or 
ihe function ''identity * 1 is the 


COLLbCltJj> item>> >) 


lAShlbivI SiCOLLtCltb 


Step 

tUQ AOAJttl; 


In aJatton to ceing ably to list the elements produced we can 
append or concatenate them* 

t 55 theta) is the value of the 1 oent i tier which is the 


value of theta. 


iprog U(tfiv> common) {x i )i ty k>) 
{ss ssy)J evaluates. to l 


4*0. 3 I , j! .iililli-KJ'O'CtfSi 


Often it is convenient unu mote eflicent to have more 
loan one hATChLc£j4j process in existence at one time* dy a 
process we mean a program counter together with a stecx. 
Primitives ere needac tor the following functions^ 

I i Creating processes 
i- Causing them to run 
js destroying processes 

kCritAlt x> i^i II create e new process which will oegln 
execution with the function call x* The value oi the function 
create is the name name of the created process* 

{PARALLEL name x) will start the named process with tne 
execution of the duration call x* i'he calling process will 
continue to execute the other arguments of the lunetion in which 
the call to parallel is maae. The value ol the function 
parallel is th« value of x* Ihu nauieo process will he destroyed 
whan it returns ana. the returned value will be useo as an 
argument* The oelimiters and )i cap oe useo to oelimit 

peraraiies calls ior elements ana L* and >1 can be used for 
segments* Thus in the 10 Ilowing expression the sum of 3 g is 
computed at the same time as the sum cl 7 anu y* 

1 h i 0 v) J 1+ 7S)J 
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name x/ will resume execution oj tKu narneu 
process Jromi the point that control last l-& 3 t it and suspend 
execution oj the calling process, 1 he value oi x is maoe the 
value of the call to the Junction resume which causes control to 
leave the named process* expressions of the lorni ihitoUnt name) 
ere used to Start new processes* cor example iresume {create 
ijoo 2 alii will cause doo i a) to oe executed In a new 
process. 

■5.IrQhlbL name x) will resume execution of the named process 
from the paint that control last Le it it and continue execution 
oi the Celling process. The value ol k is made the value tne 
vdiut! oi the tali to the function resume which caused control to 
leave the named process* The value oJ tne function fore it the 
value of x. expressions of the form iJ-iHiK! name) are used to 
start new processes which will run in parallel with the calling 
process. hor example {fork {create i doo (bar) a))> will cause 
(foo (.bar) a> to t>« executed in a new process in parallel with 
the calling process, 

{IHt name! will cause the named process to De destroyed 
and return the namu- of the process killed* I f no argument is 
given the process which executes the call will die. 

tPASbOW name x) will RtSU^t (see above) the named 
process with tha value oj x. The process which calls the 
function passon will then oie, 

UajCK locations) where locations is ol type segment will 


attempt to iocx the locations which are arguments* The process 
wnicrj tails the function lock will ba suspended until ail tn« 
locations are locked. 

ikuCkfcLijr locations! chains locations is oi type segment 
will attempt to lock the locations wnich are arguments* J, i tne 
locations cinnont be locked then the lunction locked! will 
return <)* 

lUULOtJk locations! where locations is oi type segment 
will unlock the locations* 


4*6* ! * id Data structure Primitives 


4*6*I*2*1 Pointer junctions 


tJYPk 

expression* 
how to expano 


expression) will return the 
The lunction type is .useful 
the macro* 


declared type o] 
in macros to decide 


UtlNLj identifier! will return the xino of ldenti Her 
that iaenti iier has been declared to be* The kinas of 
identifiers are local t special, a no common* 

ltd x y! is true only if the value of x is identical to 
the value of y. 

iPuh(j'llOh 1 amOda-ekpreSsion! will return the functional 


argument of lambda-expression* 
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U function (lambda £J JJ}> evaluates ta j 
tAOTOk Kappa-expression) will return the actable 
argument oi ss^eppa^expression* 

iis U act or (itappa t) 4 J > j 41 is true 
tAl n x) will return the location of the the nth element 

or J( f 


tassign L«? ]> \replace a) <i>i [aa ob ccJ) is 
equivalent- to isetloc iat k l aa ub ceJ) a) 

till location) will return the contents of s$location as 
its value. 


Iprog ifix) (fiflx) (x Hh tin 5"'x >> will 

evalutste to I 

IbtTLuC location value) will store tne value in the 
location and ruturn the value* 

l prog ifix) Util*) x)> isetloc & N x r)) will 


assign x the value 1 

thlfH n expression) will return as its value the nth 
element oi the value qj expression ^hich must be a list, a 
vector* or a tuple* iKTH n expression) may be abbreviated as {n 
expression). 

ij (a o c>) evaluates to c 
ik L a fo c> oj) evaluatus to {n c). 
tktAH n expression) will return as its value th$ nth 
element of the value oi expression from the rear- 

treer k fa b c)) evaluates to b 
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\ rtici'i x n) will return as its value the result of taxing 
tne rest Or x ri times. 

SreSt [a A g rJ di evaluates to tu fl 
UxJTLAbT x ni niil return as Its value the result of 
taxing tne outlast or x h times* 

ibotlast la 4 6 t) 31 evaluates to la 4 ) 

UNIUAL rL expression! will return as its value the 
initial n elements of the expression. 

tinltial 3 £a b c dJ! will evaluate to (a b ci 
tlcttHlML n expression! will return as its value tne 
terminal n elements o i the expr*Ssion. 

itermina! j fa b c a)} evaluates to cp c o> 
ILtNkTh xl will return the length of th« value o i x. 

ilength fa b c) J evaluates to 3 
lPj?IhT xJ will print the pointer it, 

(SUBSTIfbTt x pattern z't will substitute the value of x 
tor ell expressions in z that match pattern. 

\ substitute a latoinic) U tx z 3.) > will evaluate 

to (a (a aJ > 


$$p}> i$P> z>>3 


tool'ins substitute (oinulambda t(x ft") pJ z! nJ 
tsubst x ival kgianorecss actor Cxappa O 


(oefine subst fiamoua £x Ctfcappa U ii)l p! zJ 
t tonu 

(tis l&Sp! sszf 
isx! 

Uis (atomic? £SzJ 
$Sz) 


<t 

Usubst ssx s&p u 
<suost irtfst 

Atom ana Property List functions 

ilOcT atom indicator.} will return the value untie r 
indicator for atom l.r such exists. Otherwise It returns fi. 

tPUl atom inaic&tor value! will put value unuer 
indicator for atom. 

flora ana humoer functions 

tcIXOONS n> will return a pointer to a fixed point 
number equal to n. 

Ifixcons 91 evaluates to a pointer to 9 
IFLOATCONb nJ will return a pointer a floating point 
numoer equal to n. 

ifloatcons 0,0) evaluates to a pointer to V,u 
it IXIN p) will return a ilxea point number equal to the 
number pointed to by p* 

tfixin i“ V>> evaluates to the fixed point 

nu mbe r 9 

irLOAllW pi will return a -floating point number equal to 
the nuino&r pointecto oq p* 

{ lloatin 9.UJ1 evaluatesto the floating 


point nmrioer 1 .0 


tblJTb s pJ will.define a Ueia ot a Dies that Is p bits 
lroJfL the right ena of the woro. 

iLOAU nits i J will return an inteyer which is the uyte 
or i wnich Is oetinaa uy bits* 

Hoau \oits I * 3b* j -N will loans the sign hit 

01 -j which is J 

tU'tfDhl T bits source aestirLatioftl wi li oaposii. the 
source in the byte of the destination oeilneo by bits ana 

return cfte rnoaiiieo oast mat lt>n as Its value* 

ioepoilt tbits l b) At evaluates tv o which is 4 
witn the low order bit turneo on* 

tMXPriiNl x> will print the iixeo point number X* 
t.rhUATi'riiM x> will print the ilooting poi^t number ^ 

4*6* \*Z*A List functions 

Any expression enclosed within tl ( Hl ana ") 11 will evaluate 
to us d list. 

A.p.E.k.b vector ana Tuples functions 

Any expression encioseo within " i lf and JL J '" 1 will evaluate 
to De a vector* Qn the the other banu* n expression enclosed 
between H I “ ana <k J' l ‘ will evaluate to be a tuple. The only 
uijsereflpe oeteen vectors ana tuples is that tuples are strored 


in tne static while vectors are gar&aye collected, 

IvcC'UiN J'i template Jem; will create a vector of length 
tne value of n with entry i initial lieu to {fen U, ‘ine 
expression template specs lies the marls function ano the print 
function of tlie vector. 


) j 


{vector 

J 

{template 

{function (lambda (jjJ 
{function (lambda {{{six) i> xJ 
tflxcons {at ssi s$x}}>) 
{function Clanbaa t al*> fCtjlx} ill 


'"ill evaluate to [3 <: Jjl* Given a location 1 as its argument 

the function lixcons will return a pointer to a lixsa point 

number which has the same value as the contents of 1. 

tld^Lfc n template icn) will create a definite tuple of 

length the vaLue of n wich entry i initialized to l fen IK A 

definite tuple can only be created as the initial value oi an 

identifier in a oeclaratian* as an element oa a definite tuple,. 

or as an argument to a junction- 

tINDEFINITE template Declaration 
{{INITIAL initialj 
(Tail test Jinal-action) 

{ADu element condition! 

fij'Itp step!) 

booyl 

will treat* an inoeiinte tuple with template by setting up a for 
loop in wnich the elements oj the tuple are generated element by 
element suen that condition is met, An indefinite tup Id can 
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only <oe created as tne initial value 01 an identifier in □ 
declaration,. as an Biement or a uaiinlts tuple, or os an 
GfgdiinirLC to a junction* Aj* inu&fihlhte tuple is o -goog way tp 
pdas arguments which are generates incrementally at run time. 
ao tuples may be utclortu in the deration. 


i indefinite 

(iixs/ ii the tuple is oi type " iiK5 N 
which is a tuple o ] lixeq point numbers} 

({(fix) (i E]d ii declare i to 
be a lixeo point numaer initialized to E/ 

Ettest Us $sn dd) (; ii n is equal to 
i t then we have crtuateo our tuple/ 

(dad ssi/ tj each time through the loop 
actd tile value of i to the tuple/ 

(step (assign sti ( + sd I)/ ti after 
executing the body of the loop, increase i by I/}J 

tt the bouy os the loop is empty!} 


will evaluate to 


111 z J 4J1 it the iaantftiar n has the 


value 4 


UJiMSHArtt Ki will create a copy or the value oi x at fha 
top level, Inc value of the junction unsnare will me ^ciuai to 
its argument but it will not be eq* 

(unshare [I x (y £.b)J/ will evaluate to [U (y 


2*0/ i 


iproy EUvucl t a (a 

laq ik S&x> ii (unshare $&x;}/> 


evaluates to true 
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4 T (j.i*z*6 Algebraic 

UJO termsJ where tarns is of type segment will produce 
i* suu, oi vne algebraicily simpliiieci tercfis. 

tcioo t* (** x 2 ) if j (* i x) fit 4 x> 4 f** x 

i:J / evaluates to 

f+ 7 £ * 0 b {** x ^}} 

^MUL'I IH-j factors! wher* Tsctors is oi type segment wi ll 
multiply together the algebraic lly simplified factors, 

tmultiply j (+ x C* x - 2} x 1 will evaluate to 
(w f* d (** x is J J £* —\2 4 . 6 .i examples oj 

tne use of functions 

ihe function Tectorial is defined oelow in oruer to 
illustrate the syntax of functions that produce values. The 
program shouits almost oe sell explanatory to any LISP 
programmer* Un entrance to prog, temp Is immediately bound to 

i. 


(define tectorial 

(lambda ItixJ (CUiixi nJJJ (prog (fix! £(Uix> (temp 

] ) >J 

again tconci (t is (less $snl 

lexit ^&te,npJ }} 

(assign $ * temp $Stemp>J 

(assign $*n {- itn l }} 
igo again}} )) 

ilsing a tor statement* we can define lactorial as Tallows* 
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( i IJ i li 


Ej^tyuiip/ } 


la ptor 1 al 

(IdiUDUd ttixi n>)J 

iror s.J 1 jc> 

C C i fi xi £ 1 J J) 

((test Ijs {less £ l ) Sin> i return 

tstep {assign S^-n \- Vin I 
iassiyn S'-ttmp i* 5-Sn fr^teGipiiiJ) 


ihjs tjj* vdLye o i ^ ldctoriai 6) is oi ana tlie value on 
iiact oriel i+ d is 
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4*7 iHWidLE 


bactior. 4,7 is logically completely separate from the 
rest 03 the language* It is not necessary to re*o this section 
to understand the rest of the document* 

fcU.w&Lt is a proposes blue* structures assembler tor 
wAFChLtbb which outputs relocatable oinary, It a process 
encounters an undefined function or actor then it searches its 
arenive file for the most recent version of the function or 
actor, I i the search succeeds then the process calls the 
loader to ioso it ana continues execution, Ihere are two Kinos 
of identifiers tnat are allow eo in the language* l'ne first Kind 
declared in ulock. headers ano the value is oDt-ainec oy 
prefixing the ider.ci iUr with the character ^, r ihe seconu Jcinu 
is defined by appearing as a Uy ano the value is obtained by 
prefixing the identifier with the character i, 

4*7.J Commands 

4,7*[*l Control Structure Commands 

CiiJMult name form type argument-types declaration bcxiyJ 
wi^rt body is oa type <7> will declare a top level named bloc*, 

I he allowable form typea arc laoiuoa and kappa. 
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iluhft/o nainti declaration bojyl where oooy is u i type e; > 
hi li CraiStd a cl pci g 1 JiLHlfeene Id tuf d xi Lh fniflltii Ql: C1 d Tlj £ 1 oil , oil a 
bony, 

AjRY name kina-or-lorm argument-types! will declare 
entry point* Ine allowable kinds or forms are LAnpyA,, 
dfLU li AC jiLu 

lod tag) will transrer control to tag* 

\; comiinintl whar* coiMient is oi type <; > io a comment* 

(Urdu name 

use la ration 

MmUAL Initial* 

CibS'l teat test-action) 

CSltP atapJl 
oooyl 

where initial^ test-action doUV , ana step ere or type <i> is the 
lor statement oj the language* it exponas to the ]allowing 
■rthere '1 Ad is a generated symbol 


declaration 

initial 

I Au 

(ULOftU ( test test-action ) ) 

boay 

step 

t«j TAU>J 

tudUNlj clauses! is thti conditional statement, each 
clause is oi the lorm (predicate commands J, 

iCALt name return-type argument-types! will create a 
iunction ca li to tr^e nameo function* 
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beta Structure Commanas 

k' x> is the wora with the iEioiract oit or. ano x in the 
rignt hair. 

kl a x> is the word with a in the index rieLd and x in 
the rignt nail. 

{'I a x> is the word with the indirect hit on, a in the 
index iield t slid x in the right half, 

1 = literals! is the worn. with la It half Cl ana right haij 
the adyfess where the myitiwora literal is stored. 

ti^EClAL ioehti Her type/ is the address oi the speciei 
cell a I identifier with type. 

tpATh path) where path is of type <?> is the location 
namea by the path name* hor example ipath a b> is location b 
within bloc* a* 

woraJ worQ^l is the word whose left he if is 
word! truncated to Id bits ana whose right half is wordS 
truncated to lb bits. 

ihi'iAP word! is the word with left and right halves 

swapped. 

tL5riIbT word] ni is word shl ited n places to the lent. 
ISlJiblT x> is a re lerehcs to the sixbit characters x. 
iiAoCIi xJ is a reference to the ascii characters x* 
kfclLQCK n> will allocate n wofes of memory. 

{* thetai is the value of the iAU.v.bLE ioentidiar theta. 
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i s thGta ) i;? Uie Yslue qi the um tiL t Lag theta* 


-4. f * a rreui cates 

*W*a*l Krinative eradicates 

The primitive prcaicaLes art the conditions Lnat can 
recognized oy a puh-Ju ici one instruction* Kredicates afs useo 
tor i low qi control* I here are a great numioer or primitive 
predicates. me will only mention a lew. 

(t a xi is true i f the accumulator a is r^ual tu the 
content of trie effective address * 

fN a x} is true lr tne accumulator a is dot equal to trie 
content of the elective address x 

a x,) Is true il the accumulator a is lroneuiate tiqua 1 
to the effective auoress x 

UL a xJ is true It the accumulator a is Irtmeoiate Less 
to the auactlve address x 

(oAh a xi sat the Accumulator a to toe content 02 the 
eelective aduress x ano equal zero 

[ 6 aN a xj Set the Accumulator a to tn« content 01 tne 
effective aaaress x ana Hot zero 

a. /. z ♦ x compound Predicates 
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IUCOMj Clauses^ the conditional predicate* 
iuA.NU preoicetesl is true ir all of its predicates in 
turn evaluate to true. 

UJiJti preoicatesJ is true if one of its predicates in 
turn evaluates to true* 

tUHOl predicated is true if its predicate is not true- 
iSt\J commands predicate ) is true when the predicate 
predicate is true alter executing the commands, 

4* .7,3 Macros in MbwBLE 


me can da line the macro cycle which is defined to cycle 
the contents of tnree accumulators as follows* 


tde fine 


cycle 

(rtietro (a b c J Uexch Sia Sso) (exch isb 


Thus 


t up rog £! J ccycle aJ at a3>) will expand to 
i up rog t > 


(exch a I a21 
( ex oh a3J) 


4*7*4 Examples in MUMfaLt 
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£inamt>J.e factorial lambda ttlx> ivfixl) 

£} 

\i thm ar.Qiiine^J:. is passeu ort the tuple 
pointer to the i.t.uple of 'arguments Is passed in 
(push up uJ li save the did u1 
(move u Lipi a move the pointer to the 


Pdl tp An ■'eofojfi" 
register ap> 

unmanned pol into 


iuprog ia ct 

((fix 

tn <1 ap !j J 
(temp vi u U))} 

ii de line n to oe inaexed o j ap oy I and temp to 
be inaax u by F» ?.e woulo use tixeo point output to print out 
the vaiuu oj n ano tump in the jwUmtsLt debugger ,) 

(push up 1“ 111 

tt pus» the literal J onto tne top of the 
uruflSrKed pdl thus establishing the initial value of temp/ 

^ga£n 

tucona 

(iseq 


register 


In al 


(move a 'nJ (» move n into 
a ana then test ii the contents of a are less than 

(11 a £}} 

(move a -^temp) t? the value is returnea 


fmave up u) 

fpop u up) m restore the umoarteu pal) 
£popJ up ) ii exit the currant function; 
(move a ■'n) 

£imu1 a ■'temp) 

Cmovejft a ■'tempi 
(£cs (J J n) 

(go tagainUJ 


(durable factorial iambaa {fix} (iiixi) 

£ > 

tuprog factorial 

£ ii ix (n ii ap I}))> 

£ push up u J 
(move u up) 

(ufor factorial! 

f ffix (temp \i u J1))) 

£(initial (push up {= JJ>J 
£ test 

{ seq 

(move a J n) 
til a 2)> 

(move a J tetfip> 


fmgve up l) 
tpop u up} 

tpopj up J U exit the 

current junction} J 

Cstep {sos n J a ))> 

Cmovt a 'nj 
■Cimul □ ^terupj 
Imovem a -'tempi }> 
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Consider a statement that will match the pattern 
ElrtPLlLo x />* The statement has several imperative uses* 

stl* If we can deduce x t then we can. deduce y * 

In PLANWhiJ the statement st I would be expressed as fANTcCtUENT 
() x lAShEPI yi J .which means that x Is declared to be the 
antecedent of a theorem such that if x is ever asserted in such 
a way as to allow the theorem to become activated then y will oa 
assarted. 

st2* if we want to oeduce y» then establish a subgoal to 
first deduce x. 

In PLANNtft the statement st2 would bo expressed as (CQtfSLQlJENT 
(> y (OOAL xJ {ASSERT yi) which means that y is declared to be 
the consequent oJ a theorem such that if the subgoal x can be 
established using any theorem then the consequent y will be 
asserted* he obtain two more PLAMNbJ? statements analogous to 
the above oy considering the contrapositive of (IMPLIES a y ) 
which is (IMPLIES (JNQT y) fKQT x)>. 


P, ] PLANNLri Morris 


i.f.I Hierarchical Control Structure 

PLANhtR uses a control structure in which the hierarchy 
oi calls Is preserved so that a computation can back up to an 
activation through., which It has already passed. The primitive 
functions ‘'jail'* and " failure?" enable the back track process to 
ba cunt rolled. The form (FAIL) will generate a simple lailure 
which will nack up to the most recently executed form (r'AlLURfc? 
expression (pattern body!*..) such that the pattern matches the 
message of the failure. For example 

(prog (fix! CUjixJ £x 
i + 

(failure! ?Sx ((1 (assign Six 4>>Ji 

iconh 

(Us 3 six) ifalin 
(t bJ >>> 

evaluates to (* A b) which is 9 

The ioentiiier x is declared to bw a fixed point integer which 
is initialised to 3, Mhen the second argument of the all to "+" 
is evaluted the conditional detects that X is bound to 3 and so 
generates a simple lailure. The failure backs up to the call to 
■"failure?" with the message *i> M . The identifier x is assigned 
the value 4 and the rest of the computation proceeds normally. 


The top level lunction of PLANNdk is a read * evaluate* 
print loop* nhen the expression reao is successfully e^aluaieo 
tnen the whole hierarchy of calls is reset* the value is 
printed* and the process repeats* 

o,l*l: PLANNED functional horms 

The functional norms irt PLAJ^titfi! are thlambaa fwhich is 
toe analogue of lambda) anu thkeppa iwnich is the analogue 41 
kappaJ* The syntax remains exactly the same* The sole change 
in the semantics is that the functional forms oi PLAJ*NEk can 
handle the mechanism of failure. 

The following example illustrates the syntax oi 
functional forms. The function "among'" which is defined below 
is a generally use full PLANNED function* The particular way in 
which the function among is usao here does not accomplish 
anything that cannot be done easily in LISP* rte give this 
example necause it is simple enough to be easily understood. 

The next example after this will give a problem that is more 
difficult to solve in LISP than in kLAhNEk* One way to assign 
to the identifier x the value which is the first element of the 
list $$1 that is greater than b woulo oe (is <<?? Let 
(greater Ssx b)) 5-Sll* Another way would be {is $*-x 

{larger b tamong 6&lill wnere 


(deline among (thlambdia i)J tthprog {first) 

again 


i thcond 

Uis {.$$1) O) 

u if 1 is empty generate a simp la failure) 
UailiJ) 


tassign ii-first &-J.) 15^ 1 > > i i sec first to ba the 
first element of 1 ana 1 to be the rest of i> 
tfdiiure? ^return ssfirst) 

(O 

tf if the return fails with the message 

■H)* then go to again) 

{go again)))))) 

s ,da fine larger (thismbde Ct> a) 

tthcond 


message N (>") 

(igreatarp $$a j$5b) 

(? if s is greater than b than r&tu rn a) 
SSaJ 

it 

(i Otherwise generate a failure with the 

Wail £3>)JJ 

Thus the value 

of {greater i> {among {2 A 6)>) is £>* 


The following is an example of a problem that is more 
at]licult to solve in L15P than in PLANNtft. the example is 
slight!/ artificial because we have not yet introduced enough ol 
the PLANNbfi primitives to give a more natural example* The 
problem is to lino the first repeated atom In an s-expression* 


For example “g 1 ' 

is the first repeated atom In Uw y D it# g) u 

q) (g q)), Ihe 

MAlCtiLtSS pattern {^contains let {atomic) &*-x)> 

^contains 3Sx>) 

will set the vsriaole x to tha first repeated 

atom, h« will 

oefine ilirst^repeating-etom 1) to be the first 


repeating atom of 1 i 1 one exists* 


(define f1rst-repeating-atom 

ttnlambda (1) Hhprog {(if) spaci&i) x) 


(thCono 


CUina^x} U i i we fino an x then 

return it) 

(return &SxU 

ft (i otherwise generate a failure with 

tne message 11 1)") 

{fail { ) * >J H 

(define find-X ■( thlaioboa (1) ithprog (answer (i?) special) X> 
ithcono 

Ciis (atomic) $$i) W i l I is atomic then assign 

x the value 1> 

{assign £~x &sl) 

{ re t urn C))) ) 

{.filling? 

C < J U i i we are failing with the message J ‘ t > '*, 
then try again on the rest oil) 

treturn ( rino-i {rest &5l))l)) 

■(assign S^answer Ulno-x 1 first 5$lD) if find an x in 
the first of U 

(tncona USanswer (return SSahswer))} 

(return (within ssx $sl>)>J) 

toe line within (thlambda (y 1) 

(* the value of M within“ is true only If y is an atom 
within Jj 

{thcono 

Uls (atomic) 5$l) (i i1 1 Is atomic then it 

must be y) 

Us $$y S$l)) 

((within $iy Uirst U if y is wthin the 

first of y then true! 

t) 

ft U otherwise y must be within the rest of l) 
(within S5y irest 


5*] *3 PLAmEk Theorems 


The following three kinds of tneorems are the ones which 
are presently aefined in the language for satisfying requests 
made in the body of procedures! 
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Consequent 

fCiJNSfctlUfcNT type declaration consequent bewy) declares 
that consequent is the consequent of b theorem which can oe used 
to try to establish goal* that match the pattern consequent* 
nnether or not the theorem will actually succeed In establishing 
the goal depends on the boay. Typically the lirst action that a 
theorem of type consequent will take is to try to reject the 
goal* nb cannot emphasize too strongly the importance ci 
analyzing the consequences or goals In order to reject the ones 
which cannot be achieveo* Even it no absurdity is detected,, tne 
consequences are often just the statements that are needed to 
establish the goal* The only way that a theorem that oegins 
with the atom consequent can he called is by the function 
4ACHIEVE pattern properties recommendation! which is explained 
below* The following theorem says that ii it is our goal to 
prove x ana we <now that w implies x then we shouiu make it our 
goal to prove w* 

(consequent (x w) s?x 

^proved? fimplies $ r fw SixJJ 
(goal SSw) J 


5*9*3.2 Antecedent 


{AjJTcCtDfcte'I type detl&retion antecedent body) declares 
toe antecedent of a theorem from which conclusions may oe drawn 
by the body* Ihe theorem can be useo to thy to deduce 
consequences from the lect that a statement that matches 
antecedent has been asserted* The only may that a theorem that 
begins witn the atom antecedent Can be called 1 s by the function 
ILJjiAh statement properties reconunenoatiohJ which is explained 
below* Ihe following theorem says that if ws assert something 
o] the form (not £implies A ¥)) then we should deduce X* 

(antecedent (x y) loot (implies S-x $-y)) (assert 5 Sx>) 
The aollowing theorem says that if something of the form (marry 
x y) is asserted then (bachelor x) should be erased* 

(antecedent (x y> 

fmarry S'-x S^y) 

(erase (bacnelor $fx) )) 


5*J*0*J Erasing 

(EriAis IN(5 type declaration pattern body) can be useo to 
try to deduce consequences ]rom the fact that a statement that 
matches pattern nas been erased* The only way that a function 
of type erasing can be cal lea is by toe function iCHANGc, 
statement properties recommendation) which is.o&ilnea below* 

Ihe lolloping theorem says that If something of the form (olive 
x> is erased then (oaad xl should an asserted* 


(erasing (kJ 


(alive 5^xJ 
(assart fde^u &^k>>> 


Primitive junctions 


b*2,1 bata Structure Primitives 

Some o i the functions in PLAWN£H are listen below 
together with brief explanations 01 their function, Examples of 
their use will oe given imBieaistely after the aefinltlon of the 
primitives oelow. The primitives probably cannot be understood 
without trying to understand the examples since the language is 
highly recursive. In general PLANflbR will try to remember 
everything that it is doing on all levels unless commanded to 
forget some pert of this information. In the implementation oi 
the language special measures must be taken to ensure that 
identifiers receive their correct bindings. The most efliciant 
way to implement the language is to put pointers on the stack 
hack to the place-where the correct bindings are. Value cells 
do not provide an efficient means of implementing the language. 
The default response oi the language when a simple failure 
occurs is to back track to the last decision that it made and to 
make another choice. 


b, 2.\ , i Assertions 


^OrilAh statement properties recommendationJ will cause 
PLANNED to try to draw conclusions from the statement with the 
properties using the recnmmeooation to try to lino an antecedent 
theorem (antecedent type declaration antecedent t>ooyj, The 
valua of the junction drew is the value of the antecedent 
theorep'i that oraws conclusions from statement. A r ecommencistlon 
has the form (TRY theorems) or (USfc theorems), The 
racomaenoation (try thJ tht th& i?>) means that th3, thl t and 
t fib are to be trleo in turn ana then the theorems whose 
antecedents which must closely natch statement are to oe triad. 
The re commend at on (use th3 thl (and (not (th7 thd>> (has 
(dijiiculty means that unless conclusions can he drawn 

using th3, thJ » or Some theorem except for th.7 or thh which has 
tits oiflicudty 9 on Its propery list, then the function uraw 
will generate a simple failure, The recommendation (try $*-*) 
will try any theorem which can possibly match the Statement and 
will bino the id&ntifier x to the name of the theorem which is 
used, 

(draw (subset a b) () theoremsJ will try to draw conclusions 
from the fact that th« Set a is a subset 01 the set a using 
theorem 5* Suppose that we are keeping a global count of the 
number of assertions of the form (subset x y) in the global 
Identifier count. 


ioeline theorems (antecedent 

(x y (c(rix) common free) 

count) > 

(subset s^x $*-y i 

ii X and y are locals, count is a global 
fixed point number that occurs free In theorem^} 

ii the antecedent 01 theorems is 

"■(Subset $-x S^y)"! 

it the following statement will ado one 

to count! 

(assign ^count t+ $&count 1)1} 

(ASStfcT statement properties re comnianoat Lon) if the 
statement has already Deep asserted then the iunctlon assert 
acts as the null instruction* Otherwise, the function assert 
causes the statement statement with properties to oe added to 
the oata base* Then <URAiw statement properties recommendation) 
is evaluated* If the recommendation oi the draw statement fails 
or i 1 a lower level failure oascxs up to the assertion then 
Statement is removed irom the data base* If the null 
recommendation is maoe then the value of the Junction assert is 
the header of the assertion storeo in the data base* Otherwise 
the value oi the function assert is the value of the draw 
statement that it executes* 


{assert 

(sunset a o) 

((difficulty trivial)}) 

will assert that the set a is a subset of the set b and put the 
value trivial unoer the indicator difficulty* Expressions of 
the iorm (V declaration alternatives) where alternatives is of 
type <]?> will denote an assertion with variables declared and 
logical alternatives* fie shall use "s 1 " as a praiix operator to 
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denote variables In the quantificatfonai calculus. he would 

like to eiAph&slza that the syntax for variables in the 
quantificational calculus is not related to the syntax of 
PLANE* t:P* For example 

iasSert 

<v (((set) *X -y *£)) 

(not (subset Jx ty j) 

(not (subset ty tzl) 

(subset 1 x 

will assert in declarative ]orm that the subset relation Is 
transitive for Sets* The function “v JI is logical ulsJunction 
for clauses* 

iASSEUTJ statement properties recommendation ) is 11 Ice 
the function assert except that if statement has already been 
asserted then it will generate a simple failure instead ol 
acting as the null operation, 

(HoffMAhENT statement properties recommendation! is like 
the function assert except that statement la left in the Oats 
base even ii a failure backs up to the call to the function 
permanent* 

(TcMPOkAhY statement properties recommendation! is like 
the function assert except that statement will be withdrawn if 
everything succeeds in the eno. In other woros statement Is a 
temporary result that will go away after we solve our current 
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over-all problem which Is the top most call to the evaluator, 

^2,1 ,2 fcrasures 

^CnAhot statement properties recommendation) is used to 
try to deduce conclusions from the fact that statement no longer 
hoius- using a theorem oj type erasing ItEiASIUU type declaration 
pattern body). The function change is exactly analogous to the 
function araw, 

lE^ASE statement properties recommenaaton) will try to 
find a statement in the oata base that Hatches statement with 
properties. If such a statement is found then it is erased ana 
iCHANGb statement properties reconrnenQation) is evaluated, 
Qtnerwi se the function erase acts as the null statement* If the 
change statement fails or if a failure backs up to the function 
erase, then the statement that was originally erased is restored 
and the whole process repeats with another statement from the 
data base. If the null recommsnctation is maoe then the value of 
the function erase is the header of the statement erased* 
Otherwise f the value is the value of the theorem that is used to 
sraw conclusions from the fact that the statement was erased. 

The function erase is a partial left inverse of the function 
assert, 

ierase fon-top-of t>rickl brick*?) 1 will erase the fact that 
brick! is on top of orieJu2* 
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ttHASbl statement properties recoiaaenastion> is iixe tne 
Junction erase except that if statement has not been proven then 
it will generate a Simple iailure instead of acting as the nuji 
operation* 

iPiFiJHbkA&t statement properties recommendation) is like 
the function erase except that il a failure oackou up to the 
function permerase than it will not put the statement hack in 
tne oat a case* 

&*2«1 *3 Goals 

IPSOvEJj? pattern old-properties new-propertias) tests to 
see ii a statement with old-propert1es is in the oat* base* I 3 
there is such a statement, than the Identi3i«rs in the pattern 
are boung to the appropriate values and new-proper ties are 
installea as new properties of statement in the oata base* 11 
there is no such statement, then a simple failure is generated. 

1 1 a Simple failure backs up to the function proven?, than the 
identifiers that were bouna are unbound and the property list is 
restored to its previous state. Then the whole process repeats 
with another statment in the nata oastt* pi,Ai#itk is designed so 
that the time that it takas to determine whether a statement 
that matches pattern is In the oata base or not is essentially 
independent ot the number Of irrelevant statements that have 
already been asserted* A list coordinate is aelineo by some 
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atom being In some position* When an S-axpreSSion Is asserted 
PLANh£h remembers every coordinate that occurs in the s- 
expression* Iwo expressions are similar on retrieval only to 
the extent that they have the same coordinates* When the bucket 
under some coordinate exceeds a threshold than the bucket is 
suD-oivioed by taking the coordinates by pairs. The only 
reason that we dorv'L store statements unuer all the possible 
combinettons of coordinates Is that we can not afford to use 
that much space* 11 MATCHLESS had an efficient parallel 
protesting Capability then tha retrieval could be evan master 
since we would do the look-ups on Coordinates in parallel. Ihe 
value oi the funcion proved? Is the header oi the assertion that 
matches Statement. 

tproved? 

(subset a n) 

Udi iflculty trivial*]! will succeed 
only if It has been proved that a is a sunset oi b uitn the 
value trivial under the indicator diflicuity* 

tINSTANCE? pattern ala-prgpertles new-properttesl is 
like the function proved? except that the function Instance 
looks lor a statement that can be instantiated to match the 
pattern. rte will use 'h" as a prefix operator to denote 
variables in the quantifications! calculus* The syntax that we 
use lor variables in the quantificationa1 calculus Is unrelated 
to the syntax that we use lor the variables of pLAtfNtR. 
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(assert 


(v (Uobject) ((set) *y *z)J 

(subset (f * x) tyJ 
(sunset *y *z>) 

((aii aficuity haraU) 

The above statement says that loir all objects x ana sets y 2 
that ff x ) is e subset of y or y is a subset of z. evaluate* 


ithprog Cttset) w u> > 

(instance? (clause (subset s*-* a^-uli) 
evaluates to ((clause t((object) «xJ^ (subsat (a »xj (a ix>>) 

Qi a licuity nero) 

* gets the value (f ixJ 
u gets the value (a tx) 

Suppose that we Know that a is a subset of 0 or 
a Is a subset of c* In other woras we assert <v i 1 (subset a b) 
(5UbSet b q )}, evaluate* 

(thprog (((set) xJJ 

(instance? (clause (subset a S^x)))) 

X gets the value (either b cJ 
In other worms x is either b or c 
(ACHltVt goal properties recommendation) will attempt to 
achieve goal, using a consequent theorem ('CQNbtuULhT 


declaration consequent bccy I with according to recommendation. 
The goal must match the consequent* 

1G0AL pattern properties recommendation} the first thing 
that the function goal does is to evaluate (HSt) yEjj! pattern 
properties!* If the evaluation produced a lailure then the 
value 01 the function goal is (ACnltVE pattern properties 
raeoffiRienoatlon J . 
given* (subset a b! 
evaluate* ithprog <(iSet} X y)J 

tgoel (subset S'-x S'-y}}) 

X gets the value a 
y gets the value b 

iGuALS) returns as its value a list of the currently 
active goals* 

Lontrol Structure Primitives 

lTri^AL expression bindings state! will evaluate 
expression with bindings and local state. At any given time 
PLAfthtH expressions are being evaluated in a state. A top l^vel 
a process, Begins by using the global data base as its state. It 
Can switch into a local state by using the function stateprog or 
the function thval. This local state determines what tnanges 
have bean indue to the aata base i.e» what erasure, assertions, 
oaflnitlons of theorems have been maoa since the last time tnat 


the oats base was updateo* States 3 Tb Stored as a linear list 
of changes to the oata base* Thus there can be several 
incompatible states of the world Simultaneously under 
consideration. however, the use of local States slows up bate 
buse manipulations since elements of the local state most oe 
searched linearly. 

{■ST AT hi returns as its value the current local state* 
UJPUATt state) will update the data base according to 

state. 

(TriGOhD type clauses) where clauses is of type segment 
evaluates the first element of each clause In turn to try to 
find one that doesn't cause a failure or return <) as a value* 
if sucn a clause is found than the remaining elements of the 
clause are evaluated in turn* 

tthconp ft (fail)}) will fall with the message 
O 

tthcono ({fall) 3) ct 7}) evaluates to 7 
ithcond (O 3)) hill evaluate to <) 

(thcond (() 3) it 4f) evaluates to 4 
Ithcono ft (lailJ) ft ijl) jails 
(Ai'TtWKT type clauses) where clauses Is of type segment 
will attempt to find one whole clause which can be successfully 
avaluateo* The Junction attempt is very much like tbs the 
function tncona* The main difference is the Junction thcond 
wili not try the remaining cTuases if a railure occurs In a 


clause after the predicate dor the clause has Deer- evaluated. 


lattumpt (t {fail})] 1 wi 11 iail with the message 
O 

{attempt ((iail) 3) ft 7>) evaluatas to 7 

{attempt U) 31) will evaluate to C > 

{attempt (O 31 {t 4)) evaluates to 4 

{attempt tt {fail)) {t bl) evaluates to 5 

{TrtpRQG type, declaration progbody) where progbody Is of 

type segment is like the MATCHLESS function prog except that it 

can handle the mechanism of failure* 

{RETURN expr) causes the value ol expr to be returned* 

iTtMPHOU type declaration progbogy) is lijie the function 

thprbg except all assertions and erasures that are made within 

the scope of the function temprog must be undone when the 

function temprog is exited* The function temprog Is useiul lor 

dealing with hypo that lea Is* If we know that a jormuls ot the 

form {CLA USE x y) is true ana we want to establish a goal of the 

form g then we could writer 

{IWkOG U 

{TErtPkOG a 

{ASSERT x) 

{GOAL g.» 

1 TciMlpftQG n 

{ASSERT y) 

(GOAL g>J 
{ASSERT g >) 

Tne above form of disjunction elimination is often used when y 
is 01 the form (hGT xl* Goals of the jorm {CLAUSE x yJ can pe 
established as follows* 


i TH^kCKJ ( 1 

iTtMPkGG () 

(ASSORT (NOT xJ i 
(GOAL y>1 

(ASStwI (V t» x yJJ 

(blAlLPRGG type aeciarafion boay i where bo ay is of type 
segment is lixe the Junction thprog except that within the 
function stateprog assertions, erasures, and the. oe i ini tions oj 
theorems are made in the current local state instead of in the 
global data base, 

i-THANU con juncts ) inhere sonJuncts is of type segment is 
Lite the LLSP Junction and except that the function thand can 
.handle the mechanism or failure, (thand conjunct/! 
conJunet/nl is equivalent to 

(thcond 

(conjunct/I 

+ 

* 

* 

(thcond 

(conJunet/n) 

(t (falim? 

<t (faiU>> 

(ThOH oisJjjnctsj where aisjuncts is ol typs segment is 
like the LISP junction or* (thor disjunct/[ ,,, disjunct/*!! is 
equivalent to tthcdnd faisjunct/1) [ qU junct/21 it (Saillll 

{THNOT x ) is an abbreviation for (thcond <x (jall>l ft 
tJl, Thus (thnot fJl is t, ithnot t? is O, and (thnot i fall }) 
is t, Th* junction thnot is due to T* ninograu* 


I failure Primitives 


will jail if the current goal is not unique 
emong ail the goals that are currently active, 

thAILl causes a simple failure to be reported aoove, 
PLANfoEW will reconsider the last decision that it made, If 
there are any alternetives T it will Cnose one ano continue 
execution*' 

iPAIL point! causes a failure to point* for example if 
point is "theorem" then the function fail will cause the current 
theorem to Jail. Xt point is u goal“ then it will cause the 
current goal to fail, 

trAiL point message! acts exactly like {fall point! 
except that ones it has failed back to the point then it 
converts to a failure with a message which can be caught only by 
the functions failure? or failing? which are explained below* 
CFA1LUPE7 expr fail-clauses! where fall-clauses is 01 
type segment evaluates axpr. If the evaluation aoes not produce 
a failure then the value of the function “failure?" is the value 
of ftipr* if the message of the failure matches the first 
element of a clause then the rest of the elements of the clause 
are evaluated. Otherwise the failure continuas to propagate 
upward* 

t failure? ifailJ 


(t) hello}} will evaluate to hello 


(J-AILIMGJ fal i~c lausesJ inhere fail-clauses is oj type 
segment will act as the null operation unless a tailure bacis 
up tc it. II a jaiiure backs up to it than it acts Ilia dis¬ 
function " jai Lu ru f". 

(thprog (i 

t failing? f(j {return a Hi 
(fall)! evaluates to a 

iJ-AIL-10 tag} causes failure to a tag which must 
previously have been passed over* bxecutlon resumes with the 
statement after the tag* 


(thprog (a) 

(assign 3> 

there 

( thtond 

ms 4 seal 
(return 5$a>J> 

(assign 4> 

ifail^to therell evaluates to 4 
thAIL-^AST tag! causes a failure to tag which previously 
must have been passed over arm then the generation of a simple 
failure* 


(thprog (aJ 

(failing? (f> (return 

where 

(assign 5*-a al 

(fail-past where.}! evaluates to a 
(SUCcttpiNU? oeclaration boayJ where body is oi type 
segment will act as the null statement unless the remaining 
cofflpuatiors sucteeus* In easa of success tne oeclaration is 


ectivaceo ana the booy is exocutoo 
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tMWALlit-Itl tagl causes fall actions that have oeen 
taken since tag was passed over to be linalizeg so that if the 
coiflpuat ion later iails they will not be undone, rina Lizatio-n is 
mainly used to save storage* The next statement to be executes 
is tne one immediately after the calL to the function finalize— 
to, 

(FINALISE point! causes ail actions that nave been taken 
since point was passed to be finalized, fc-or example tFI£'+ALI2E 
goal,} will finalize all actions that have been taken since the 
last goal* 

5,2,3 tiepitition primitives 

tTHt-OFi type declaration 

({INITIAL initial! 

( PfiOVtU pattern olo-^properties new-properties} 
(TEST test test-actlonJ 
(PINAL lina 1-actionJ 
(STEP step) 

(LIST el eoent c ond i1 i 01 1 )) 
body} 

where booy is o3 type segment is the lor statement oi PLANfoEri* 
for each assertion in the oata base that matches pattern with 
old-properties* the Statement is given new-properties and an 
attempt is mage to execute the body, ror example the lolloping 
Statement will place all the bricks on brickl in the blue bgx. 
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brick!))1 


Uhior 

(((brick) x >) 

{(proven (un-t&p-of 

... (pick-up ssx> 

(place-in (blue box)))) 


{PctiSIST type uetlaration 
((INITIAL initial) 

CTtST test test-action) 

(LIST item cohort ion) 

(STEP step) 

(Jr I HAL linal >) 
boay ) 

where body is of type Segment is equivalent to the followingi 


(THPfiOG type (declaration <(*pr) (COLLECTED 0)J 
U declare COLLECTED to be an s- 
expression ana initialise it to nil) 

(hAlLIfcu? t(J final (PtTUkM 

S$CQLLfcCTEi») } 

body 

iTnCOHD (test te&t-action tfiETUHH 

SSCQLLfcCTED)) > 

tTXCOND 

(condition 

it if the conaition is met then 
add item to the ena of COLLECTED 

(AbSlCN ^COLLECTED t<$S 

COLLECTED item)>)) 


step 

ifAILl i; generate a simple failure}) 


“Are oil the blocks in box'] green?" will translate to 


box J ) 


block 


ipersist <C(bloat) d)) 

((final (return t))) 

(goal (in boxl) ) (i find a block in 


(theend 

((goal (green s$n)) ii if the 
Is green then continue with the loop!) 

(t 
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(fail persists ((.otherwise 
generate a (allure Out q] the persist loop})}} 

tMNli 

(BtTWtbW lower Upper SUCCEED) 
declaration 
i turn 
bod y) 

will ;flno between lower ana upper items according to the body* 
The function find does not consider possible interactions 
between the elements sought* The fino primitive function is 
equivalent to the following! 


(FhftSIoT (declaration <{HkJ (NUMbtfi Oi)J 

UlESl (ASSIGN? S$NU*BEk Upperl J U U 
we have found at least upper items then we are done) 

(LIST item! 1; we will male a list o j 

the items that we tlna) 

(STEP (ASSIGN SJNLwSErt { + $&NU*1BhK J )i> 
(1 alter each pass through the ioop f we will ado one to ftUrtBfc-H) 

(FINAL UHOiNU ( (ASSIGN? i LESS lower; 
S$NUiiijc.H^ (FAlLl))) (i as our final action we will test to see 
that we have collected at least lower Items If not then generate 
a simple failure}} 

body 1 

N bina three boxes that contain green blocks. N 
will translate tos 


(lino 3 (((box) xJ ((block} $$x 

(goal (oox &*-x }) 

(goal (contains S^x $-bJJ 
(goal (green Ss-b> J> 


5.2.4 Co-routine Primitives 
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In more complicated situations* we lino t>idt It is 
convenient to be anie to have mors than one PL&Nfifcw process* 
iTriCHtATt x) wili create a planner process which wiJi 
Dagici evaluation with the junction call x* Ihe value of the 
junction thcreate is the name ol the created PLANNtR process* 
tTriRbSU^fc process expression! will resume execution 0 1 
process from the point tnat control last l«3t it* The value ol 
expression is toaua the value oj the call to ,, thresu»e ,t that last 
Caused control to leave process* 

(TriPASSON process expression! will resume isee above! 
the process ano then cause the calling process to die* 

iCftHAIL process message! will generate a failure with a 
massage within process at the last point that execution left the 
process* 

ttAHAUb'f type declaration 
i (INITIAL initial! 

ElbST test test^-action! 

£ ACTION action! 

(LIST item condition! 

(STEP stapl 
tUNM- i fna 1 >.! 
bbciyi 

where body is ol type segment will attempt to execute body ones 
lor each tide that action is successfully evaluated* tivery time 
that the body it executed the function exhaust will send a 
simple dallure to the action to see if it has any eltarnatives* 
An "exhaust* 1 loop The function is very much lixe a '"persist" 
loop which is oer'ineo anove. 


both kinds loops are driven by the 


failure mechanism. The main difference is that the effects of 
executing the booy o t a "persist" loop are not preserved because 
a fai lore must propagate through the booy before it can be 
executed again. In an "exhaust 1 ' loop a separate process is 
created for the action so that the eliects oi executing the booy 
can be preserved. The function exhaust is equivaLent to the 
following expression* 


ifHPHOu type 
C 

(Upr> (COLLbCTbD ()>J 
( ip rod 

(CUkkbMt ICUflkbNTU 

( AC 11 o.N- PROCESS (TrtCk&ATfe IMHh'UACTIOH 

ssCJkfitUT}! >) 

U declare COLLECTED to be a s-expression initialized to 
Of CUREJbNT to be initialize^ to the xiama of the current 
process f ADTlOti-EhiJCESS to oe initialized to the name oi a ne« 
process which begins exaction with the call LACTION-HJACTION 
tsCUfiftcWT) which will pass the name of the currant process to 
the created process! 
mtCUND 

HIS EXhAbSTtL aHHbSUrtt SS ACTION PROCESS )) 

U start the l>LANM£h process SSAC1 lOft-PROChSS in 
which the action will oe executed* if the current process is 
resumea with the value Ej£HAU$lbO then go to the tag tXdAUSTbU* 
the latter will happen only ii the action fails before 
successfully evaluating even once! 

{go fcXHAUSTbDm 

CON II MU & 

tTrtCOND f test test-action (RETURN S$COLU=CT£Li})) U If 
the test is met then execute the test-action! 


body 

ITriCOhD 

(condition 

iASSIGW SiCOLLbCTfcD (<$$ COL_ECTE 1 >^ item)!!} it 
i ] the condition is met then ada the item to the end of the list 
01 collected items} 

\i the expression (COEAIL &SACJI ON-PROCESS} will suspend 
execution oi the current process anu will begin falling irom the 
point within the action process where execution last Left odi! 
ilriCUNLi 

(US EXHAUSTED LCOFA1L $SACT1QN-FHGCE$S)} 
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f li the currant process is resumed 
lUe bXHAuSTbD then go the location tAriAUisTHLi; 


*00 EXHAUSTED)J 

*uu continue) 

EXHAUSTED 


f i na 1 

\ BclTUR fo COLLLECTED)) 


with the 


I he lo 1 i o m i ng function i s.aefined 50 that we cart start off the 
evaluation of the action process. 


(define ACnON-^UfCTjON 
(THUmboa ((tproc) 

(hAiLlWtj? (UJ tlHHASbOtt A IH bXHAUSXElH )> 

. the action finally is exhausted resume the 

process $$AAlN with tha value EXHAUSTbD and Kill the action 
process) 

action 


*THRbSlJtft SSMAlh SUCCfcSSJ 

** resume the main process with the value SUCCtSSiJi 


Suppose that we have a way to generate the elements qj a set w. 
hor each element of w* we want to deduce consequences irom the 
fact that it has property q* Ihen we want to try to show that w 
has the property q* 

tthprog (J 

i exhaust f £ tseti mJ ) 

((action (goal (subset 5-x wUll 


(assert tq ^x)) 
(goal tq w) » 
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!?.j Clauses in pLANh£ri 


*e would. like to explore the potentialities for using 
PLANNER to control a resolution based aeouctlve system* Since 
the question .whether or not a given formula is a theorem or not 
is undecioable, a complete proof procedure using resolution ior 
the lirst oroer quancificational calculus must in general 
produce a large number 03 extraneous clauses. The result on the 
necessary inefiiciency of a complete prooI procedure shoulo oe 
sharpeneo up* New theoretical tools must oe developed in order 
to mate any substantial advance on the problem* The importance 
of resolution as a problem solving technique does not He in the 
fact that it appears to be the fastest Known uniform proof 
procedure for lirst order logic, Rather, resolution provides 
one technique for dealing with the logic ot disjunction ann 
instantiation. Domain dependant procedures must provide most 
of the direction, in the computation to attempt to prove a 
theorem. In order to do this we would need the following 
Junctions t 

ifiESOLVt fpatl pet2J resolvent new-property-list)} will 
result in resolving ail clauses that match the pattern pat l with 
all clauses that match pat2 in all possible ways to yield a 
Clause which must match the pattern resolvent. The resolvent 
will be stored in the oata base with new-property-11st* 
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Uic5GLV£l (pat! pat2) result new^property-11st>> will 
resolve a clause that matches the pattern patl with one that 
matches the pattern pat2 and assign the pattern result to the 
result, if there are no such clauses than a simple failure is 
generated. 13 a simple failure becks Up to the function 
resolve] then it trys again with a different pair of clauses* 

iEGii-RESOLVENT type nee la rat lion 
< (INITIAL initial! 

(OLAuJt.o pet I pat2 > 

(FINAL linalJ 

(RESOLVENT result new-prcperty-list) 

(LIST element condition) 

(STEP step)! 
hooy) 

wnere booy Is of type segment will attempt to execute the body 
oi the for statement once for eacn result of resolving a clause 
that matches the pattern pat] with a clause that matches the 
pattern pst2* 

It is possible for PLANNtR to run out of things to 
evaluate be lore it has deduced the null clause, A complete 
proo i procedure could be called to try to finish ojj the proof* 
If in the course of its operation, the complete procedure 
generates a clause that matches the antecedent oJ a theorem then 
FLAi'fNtS can be re^invokeo* The complete procedure could b« run 
in parallel with PLANNED, Thus using PLANNED we could implement 
a complete proof procedure* The point is that implementing any 
“reasonable" uniforia proof procedure should ha easy in PLAINER* 
However, we should not rely on a uniform proof procedure to 


so \ vu our problems lor us 


3.^ A Simple Example 


b. 4* I tJsing a Consequent Theorem 


Suppose that we know that (subset a bJ » <subset a a 1, 
[subset b cJ , ana (all (lambas (ooole) (((set! txJ fisEtJ *y) 
((set) *z>) [Implies (ano [subset *x */) (subset iy *z)> (supset. 
ix (£))) are true* How can we get rLANHEft to prove that 
(subset a cl hoios? he wouio give the system the following 
theorems * 

giveni 

(subset a b) 
fsubsat a 0) 

(subset b cl 

£ae fine backward 

(consequent (((set) x y z)l (subset S?x $3zl 

1 uniquel (i the current goal must oa unique! 
{goal (subset $?x i?y} () (try backward t 7>I> 
{goal (subset S4y (1 (try backward)> 

{assert (subset $Sx &5z) [i i ))}1 

How i f we ask ELANhtii to evaluate (goal (subset a c)J then we 

will obtain the fallowing protocol* 


ig-oa 1 (subset a tJ) 

{proves? (subset a cJJ- 
Tai 1 

{achieve (sunset 3 c)l 
enter backward 

X DGLOllLaS a 


('LL] ._Lb! 


nod e 


Z becomes 0 
(unique) 


(goal 

(subset a S?y)> 




(proved? (subset 

•a 

$?yH 

] t y 



y Becomes a 



_(goai 

(Subset a c)J 




(proved? (subset 
fail 

□ 

c > ) 


(achieve (subset 

Q 

c>> 


enter Backward 
x oecciri.es d 
z becomes t 
tun ique) 

tgoai (subset □ S?y)> 

(proved? (subset d $?y)> 
fflU 

(achieve (subset d S?y)> 

enter backward 

x becomes d 

1 becomes s7y 

(unique) 

fail 

Ja i 1 

3,9 mote that this nooe appears above 
y Dacoones b 
{goal (subset b c)} 

(provea? (subset b cM 
(assert (subset a c)) 
succeed 


Alter the evaluation the data bes« contains! 
(subset a b) 

(sublet a g) 

(subset b c) 

(subset a c) 


In other worus the first 
a theorem that it can ac 
Ddcuward ana binas x to 


thing that PLANK£H uous Is 
tivate to wort on the goal, 
a ang % to c< Then It maxes 


to loox for 
It llnds 
[subset a 


^ ?y J a subgoal with the recorronenoa t ion that back, ward should be 


used first to try to achieve tha subgoal* The system notices 
that y might b# a 4 so it binus y to u* Next (subset a t) Js maoe 
a subgoal with the recommendation that only backward be used to 
try to achieve it. Thus bactwaru is called recursively, x is 
hound to o t ano i is bound to c. The subgoal (subset o STy) is 
establishes causing oacfcwaru to again be tallao recursively with 
x Douno to d add i determined to be the same as what the old 
vaiua 03 y ever turns out to be. but now the system ilnos that 
it is in troubie because the new subgoal (subset u &?yJ is the 
same as a subgoal on which it is already wording. So it decides 
that it .was a mistake to try to prove (subset u c) in the first 
place. Thus y is bound to b insteau of o, Now the system sets 
the up the subgo&l (subset b cl which is astabiished 
immediately, Ae use the aoove example onLy to Show how the 
rules 0 3 the language worn, in a trivial case. If we were 
seriously Interested in proving theorems in HLAMhErt about the 
lattice of sets, then we -would construct a finite lattice as a 
modoi ana use it to guide us in flnaing the proof* Suppose that 
M is model for the set of hypotheses h with consequent C. Using 
constructive logic a subgoal S of the goal. C would be rejected 
if It could be shown tnat it was unsatisliable, by W, Often 
rejections are made on the basis oi a moael* hor example in the 
intuitive model 01 Zermelo-hraenkei set theory ell the 
descending element chains ars Unite and terminate in the null 
set* hurtherlHdra every set has ah ordinal rank* Thus the 


ordinals form the back done of the set theory* The intuitive 
meaning of { + A to) where A anu b are ordinals is tha 
concatenation oi A with b- The intuitive meafting 01 U A bJ is 
the concatenation o i A with itself b tiroes. If two ordinals 
have the same oroer type then they are equal. Thus intuitively 
we would expect that <* (+ ] omega i omaga) Is true- tvery well 
developed mathematical domain Is built arouna a complex ol 
intuitive models and simple examples and procedures. Axiom sets 
are constructed to attempt to rigorously capture and delineate 
various parts 03 the complex. One of the most important 
criteria for judging tine importance oj a theorem is the extent 
to which it sheas light on the complex of the domain. These 
complexes must be mechanized, fre conclude that it is unlikely 
that aaep mathematical theorems can be proved solely Jroiii axioms 
and definitions by a uniform proof procedure. A uniform prooi 
procedure based on model resolution does not provide the means 
for mechanliing the complex of a domain, Model resolution is a 
strategy for deciding which clauses to resolve- There Is a 
great deal more to raecnanizlng the complex ol a domain than 
simply pruning proof trees. J-urthermore t clauses ere often 
false in a model even though they are irrelevant to the proof 
that is being sought. One way that is often useo to try to find 
a counterexample to a ielse statement about ordinals is to 
attempt to construct the counterexample from well known 
ordinals- boms well known ordinals are 2. 3 t omega! epsilon 


3*4 JO 


nought, the least uncGuj-itdb.Ly ordinal, etc. thus in seeking a 
counter example to the statement that there are only finitely 
many limit ordinals less than a given ordinal we n«eo go no 
further than <* omega omega>* 


5.4*2 using an Antecedent Theorem 


buppose we give PLANNhft only the following thaormns* 


g.ivem 

(subset a 01 
tsubset c o> 

Refine forward-right 

(antecedent (((set! x y zi) (subset $~y 
(goal (subset 5?x Sty )i 
(assert 

<SUD£et SSx $Si) 

O 

(try for* war or right 3orwarfl“le |t) ) H 

(j« line forwaro-left 

(antecedent (((set) x y zjl (subset s^x s*-y) 

(goal (subset 4Vy 
(assert 

(subset $sx s&zl 

n 

(try forward-right f orwaro~laftl i )) 
how if PLANUtK is asked to- the theorem evaluate (assert (subset 

b c) (J ?), we will obtain the following protocol* 


(assert (subset o c>i 

(oraw (subset b c)J 
enter forward-right 
y Becomes b 
z oecomes c 
(goal (subset $?x ol> 

(proved? (subset s ? x b) i 
x becomes a 
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(assert (subset a c ) > 

toraw (subset a cl 
enter forwaro-right 
y becomes a 
z becomes c 
(goal (subset $?x ai) 

(proved (suc-set &?x a)} 

(ail 

enter lorwaru-left 
x uecciiits a 
& becomes c 
(goal (subset c $lz)) 

(proved (subset c $?z>> 
z becomes a 
iassert (subset a dll 

(draw (subset a a)> 
enter lorwaro-rignt 
y becomes a 
z becomes d 
(goal (subset $7x all 

(prov&u? (subset $?x all 
fat 1 

enter forwaro-Left 
x becomes a 
y becbm&s u 
(goal (subset d $7iJ> 

(proved? (subset a &7z)l 
fail 

(all 

succeed 


A (ter the evaluation the data base contains* 

{subset a b J 
(subset c a) 

(subset a a> 

(subset b cl 
(subset a c) 

Iheorems in PLAN(s r hk can be proveu in much the same way 
used for ordinary theorems* tor example suppose that we had the 
following two theorems! 


(us line th4 (consequent (((setI a c>J (subset $?a $?e) 
(goal (set 57a)} 

itemprog (( (od jectl (it (arbitrary (object}}) 1 
(assert (element s$a) (I ?) 

(goal (element s&x &?c)}) 

(assert (subset $Sa 5&c> (> ?}})) 


Ihs function arbitrary will gens rate a unique symbol which has 
tne type OJ its argument, Qn entrance to the Junction temprog 
tne iue/iti 3 i«r x will oe bound to a freshly creates symooi. The 


above theorem is a constructive analogue oi 

Call Clambda (boolel(((set } iaJ ttsati *c)l 
(imp li es 

<ail flamboa 

(Pooled 

(((object} xyj} 

(implies (element ix mi (eLement *x 

* c) 13 

(subset (a icl)i 


Going in the opposite direction, we have 


i da fine tha-5 (antecedent 
EHsetl a bJJ 
(subset a b> 

iassert (theorem (antecedent 
(((element) x3> 

(element 57 a) 

(assert (element SJb) f) J)})}) 

(define th4’6 (antecedent 

(((setl a b>) 

(subset a b) 

(assert (theorem ccons@qu.ent 
(((element) x)) 

(element ??x $?b) 

(goal (element S?x )}}})} 

(define tha (consequent (((object) xKiset) r s>) (element $?x 

(goal (element t'Jri) 

(goal (subset sir i?s )i 
tassert (element S$x $&s) () 111 3) 
ine above theorem is a constructive analogue for 


(all (lamoda 

iboole) 

(((object! txl ((set! is>) 


i implies 

(some (lambda 

<boolsi 
tfiset} *rJ) 

land {element *x *r> (subset *r *sJ)) 
(element tx isHJ 

rrom th3 and thJ we can prove the jollowing theorem = 

Econsequent {(iset> a b c>) (subset 5Va s?cJ 
(goal {subset &?a &?b>i 
{goal [subset ssb 
(assert (subset &Sa (> ?})> 

Ine above theorem is a constructive analogue for 

(all {iamb—a 

(booiei 

Utset) *a) (tseti ib> Cisetl *cJO 
(implies 

{and (subset is *b) [subset ib *c)> 

(subset ia icJ> 


Often we will treat the statement of a theorem simply as an 

abbreviation for the proof ol the theorem* 

he would like to examine the previous problem irom the 

point of view 01 resolution based deductive system. The pattern 

function clause .will ba useo to flitch clauses* It will use the 

fact that disjunction is commutative and associative* The 

pattern function unify will be used as a variant oi the pattern 

function ciau.se in which the Clauses to be unifyeo will be given 

as the first element of the function unify* we will have* 

J. (clause (((set) ia 1 t>} ({object} a x)} 

(not (subset ta *bl) 

(not (element *X ia H 
(element *x ib>J 
2* (clause (((set.} *e sb J> 

(element (eiament—of-ai tf erepce is *b> ial 
(subset is sb>} 

3 . (clause (((sex} ia mJ) 
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(not (element (element-of-dif lerence t a *o} i b)) 
(Subset id ta ) J 


(dafine necessary 
(antecedent 

(((set) a b) ((object) y)ciau£e) 

(et (clause (subset S-a S-uJ *.?>} 5-clause} 
(re solve 

£ $$cleuse 
(uni ly (> 


((not (subset $Se 5tb)}) 
(not (element 5?x ssa)J 
(element £?x 55b))})>)) 


The above theorem says that we should eliminate all positive 
Instances of the predicate subset from clauses. It Is a special 
case ol theorem! which has been partially toffipilea. 


(define suillelflnt 
(antecedent 

(((set} a b) clause) 

(et (clause (not (subset $*-a 5-bJ> <?»> $-clauss) 
(resolve 

c s$ clause 
(unify () 

((subset $sa $Sb)) 

(element (elemeht*-c? t-di fferenc# $$e 550 ) 

ssa>))> 

(resolve 

(t&clause 


(uni ty (> 

((subset 55a 5$bJ) 

(not (element 

talement^of-dlJ lercnce $$a $$b) 
$ 5 o)>) ))))> 


The above theorem says that we should eliminate all negative 
Instances of the predicate subset from clauses. 


5*4,3 Using Resolution 


rtfi shall assume that the resolution routines 
automatically detect contradictory pairs oi clauses when they 
are generated. The theorem (implies (and (Subset a b) (subset 
t)) (subset a cJ) can be proved as follows* 


ithprog () 

(temprog (Usati 

(a {arbitrary (set>>) 

(b (amlt^ry (set))) 

<c {arbitrary (set))))) 

(assart (v t) (subset 4$a $sbl () 7> 

(assert {v f) {subsat 4Sb $$c) (> 7) 

(assert (v f> (not (subset £§a $Sc) (> ?} 
(goal C resolve ())}> 

(assert (v (((set) *y iz>) 

(not (subset * X lyj) 

(not (subset iy iz)J 
(subset *K *£)))} 


Itie proof is* 

4, (clause () 

(subset a b)} 
b* (clausa (({sell ixJ} 

(not (element ix a)} (element *x b)> 
b* (clause (1 

(subset b c)J 
7* (clause (((set) tx)> 

(not (element *x b>) (element ix c>) 
3. (clause ( ) 

(not (subset a c)J) 

9, (clause (> 

(element (elewent^of^dijier&nce a c) 
tC). (clause () 

(element (element-oj-al ft erenca a c) 
ill. (clause () 

(not (element Celement— of-di t1 erence 

and 7. 

72. (clause () 

(not (element ( eleven t^of^dt ff erence 
5* 

13. (clause ()> by 12. end JO* 


by i . and 4. 

by I* aoo 6. 

a)) by d. ana 2. 
b> by 3. ana 3. 
a c) c ))) by 70* 

a c) b)) oy V * and 


6* More urn PLANNtR 


D-, 3 PLA^NtH cAAHHLhS 


6.3.] Lonoon^s hrioge 


tfost ol the time we aecioe which statements that we want 

to erase on the basis Of the Justifications of the statements* 

ll we erase statement a eno statement b cepenos oh statement a 

because a is part of the Justification of b„ than we probably 

want to erase statement d. Sometimes a decision is maae on the 

basis of other criteria, t-or example suppose that we care luily 

remove the bottom brie* irom a column ol bricks. he shall 

suppose that each brick is or unit length. The statement tat 

SfhricJt S^plaee S"-heightJ will he defined to mean that prick 

ssbrick is at place s$place at a height sstraight* Suppose that 

have the following theorems 1 

( at brick I here U) 

(at bricki here [) 

(at Prick3 here 2) 
idefine lonoorKs-briaga 
i era sing 

(((brick) brick other-brick) ((place) place) ((integer) 

height) ) 

(at S'-bricic S^place S^height) 
itheond 


((erase 


fat bother-brick ss-place -teo'di 
ssheightJj 7) it erase the fact that there la another brick in 
the place above brick! 

i assert 

Cat s&other-bri c x SJpiace 

SShelghtJl ii assert that it is where brick used to belli} J 


Thus alter {.eras* tat brick! here ill) we will have tat bricici? 
here t)J ana tat brick3 here 1J, The upper bricks in the tower 
have all fallen sown one level* The ao-ove example comas iroia a 
suggestion made by S, paper t. 


6» 1 *2 Ana log! es 


6*1 *-2*1 Simple Analogies 


Our next example illustrates the usefulness of the 

pattern directed deductive system that PLANJNtR uses compared 

with the quant lgi ca tiona 1 calculus of oraer omega, divert that 

.ocject al has some relation to object a2 and that object cl has 

the same relation to object ci* the problem is to deouce that a! 

Is analogous to cl, he use the predicate test-analogous within. 

the theorem pair to record thet we think two objects might be 

analogous ana that we would like to check it out. Suppose that 

we give PLANM'kR the following theorems* 

{inside a] a2) 

<inside cl c2) 

(a-object all 
fa-ooject 621 

(object ell 
fc-object c2> 
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{de line pair (conseouent 
( 

((object) a cJ 

((functor {?> ( 7 ) > predicate) 

( argsal argsei argscf argsc2)> 

{analogous $7a $Jc STpredicate) 

(unique) (i the current goal must be unique I 
{thcono 

(ipr0veu7 (test-ana iogous &Za 5?cJ) 

(i it a and c are test*analogous then we 

are oone) 


(return c)) jJ 
(proved? la-object &?a>) 

(proved? £ c-object &?c)) 

ii find an a-object and a c-object/ 

itemporary (test-analogous $&e $&c &?prooicateJ} 
(temporarily assert that a ana c are test-analogous) 

(proven? £$?preoi catw J^argsa) S-ergse *?)} 

(proved? (^predicate i*-argsq,( S-Sc ^argscil 1 

(j fino a preal cate In which both a and c are 

arguments) 

itbCQba 

Ills (non l)} {SiargsslJ) 

(goal £corresponaing-analagous 
(JsargsaJ) (ilargscl) sspradlcate)))) 

(thcomi 

f(is (non (!) £$&argsa2)) 

(goal (corresponding-ana Iogous 
(ssargsa2j ($$argsc2! .^predicate)>1> 

(i show that the other arguments are analogous! 
(assert {analogous s$a s$c Sspr ealcate! > 


{define chop-off-another (consequent 
£ 


A (object) a bJ 
{<?> aa Ob] 

{(functor (7? (?)) predicate!! 
{corresponding-analogous {^a $7aa! ls?c S7cc3 
S'fpredicate) 

ithcond 


sTprealcate?J 


£(proved? {test-analogous &?a s?c 


(? if a and c have already been asserted 
to be test-analogous then we only have to looJt at the rest of 
the elements) 


(go rest)!) 

(proveci? (analogous $?a s?c $?praai cate )) 
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rest 

(thcona 

His tnon O) 5$aa) 

(proved? (correspajadinn^analOGous ( 5 ifea J 
£ S 7 ec ) $?preaicdte))>)j)> 

Thus if we ask PLANNtR to evaluate {goal (analogous ak S?x 
inside)) then a will be bound to cl in accordance with the 
following protocol* 


(goal 


node 1 


analogous al $7x Inside)) 
enter pair 
a gets the value al 
c gets the value $?x 
predicate gets the value inside 
1unique! 

(proved? (test~anaiogous ai sic inside)) 
TAIL 

{proved? {a-odject an) 

{proved? (c-ooject $?c)) 


c gets the value ci 
x gets the value e2 

{temporary ftast^analogous ai c2 inside)) 

(proved? (inside al -a2) > 
tproved? (inside cl t2)} 

(goal (corresponding-analogous £a2) C> inside)) 
enter chop-off-another 
FAIL 

TAIL 

node i 1 note that this node appears above 
C gets the value cl 
x gets the value cl 

(temporary (test—analogous al et Inside)) 

(proved? (inside cl c2)} 

(goal fcorresponoing-analogous (ai) Cc2? inside)) 
enter chop-off-another 
a gets the value s2 
c gets the value c2 

{proved? (test-enalogous a2 c2 inside)) 
HAIL 

(proved? (analogous a2 c2>) 
enter pair 
a gets the value a2 
c gets the value c2 
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insioe)1 


inside )} 


Cel) inside)) 


(unique) 

(proven? (test-analogous a2 02 
r Ai L 

(proved? (a^ooject a2)l 
(.proved? (c-onject c2H 
(temporary (test-analogous a? c2 

iproveo C inside a I tali) 

(proved (inside ell c^J) 

(goal (correspointiing-analogous {an 

enter chop-o n-another 
a gets the value el 
c gets the value c] 

(proved? (test-analogous ef cl )> 
succeed 


In the process of carrying out the evaluation the following 


additional facts w] 11 be established* (analogous af c( inside) 
ana (analogous a2 ca insloeK The reader might fihu it amusing 
to try to formulate the above problem In the first oroer 
quantifications] calculus. 


■6*1 *2*2 Structural Analogies 

The process of linaihg analogous proofs ana methods 
plays a very important role in theorem proving* hor example th« 
proofs of the uniqueness of the identity element and inverses in 
semi-groups are closely relatecu The.uefInitions arei 


(equivalent (identity e) (equal O e e > <* e a) a)1 
(Implies (identity e> (equivalent (Inverse bl b> (equal f* ot 
bJ (* b blJ e))> If e ana e' are identities, then we have (equal 


« C* # e'l e J J. If ail and are inverses of a t then we have 
(equal a I (* eH a a J > aM. lhe general form 03 the analogy 1$ 
(equal w S^stnng w'1 whare S-istring algebraicly simplifies to w 
ana w J . In many cases analogies are found oy Constru ction* 

That Is the proolem solver .looks around for problems., that might 
be solved with an analogous technique In other words we will 
have a method 01 solution in search &j a problem that It can 
solveE how that we have found a technique iur proving that 
various kinds of elements are unique, let-'S iook around lor a 
similar problem to which, Our technique applies* rte find that 
zeros in semi-groups .are defined as follows* 

(equivalent (zero zl (equal {* a 1 } (*2 al £J> Supposing that 
z and z * are zeros we find that (equal 1 (* z 2 j, l, One 
major problem in the effective use of analogies in order to 
solve problems Is that it is very difficult to decide when and 
at what level of aateil to try for an analogy* Another problem 
is that often the analogy holas only at a quite abstract level 
and it must not be pushed too far* consider the following two 
algorithms 1 

(define number—of-stoms 

(Iamode £at > 

i cona ((is (? s$xl U> 

His (atomic} 11 

ft 1+ 

1 number-ol-atoms (1 $Sxjf 

tnumbor-of-atoms frest £sxl}}>)> 

(de line list-o l-atoms 
£ la mbda ( x i 

(cona His (> Six) ( )> 


Ctis (atomic) $$x) f$£x>) 

(t iappend 

Uis.t-o 1—a-toms U $sx)> 

(list“o t-aiyfns treat 3$ *)))>)) 


Ihe Junctions number-of~atoms ana 1ist-of-atarns are precisely 
analogous. In west cases two functions will not be nearly so 
Similar, 'tery lew of .the ideas of one will be used in the 
Other, n« Bledsoe has suggested that still another example of 
analogous proofs is round in the Schwartz inequality* 


(not (greater 

(** 

{+ 

( + (it i > (y I)) 
<* (x 2) ty 2)>i 


<** ix 1) 23 
(** £x 23 2)3 

(+ 

(+* (y 15 23 

(** fy 23 2 ) 3 ) 3 ) 

(not (greater 

(** 

(sigma i n.(iamboa (real) (((fix) 13) (** f* £x 

1> (y 1)3 2)3) 

2 ) 

(* 

(sigma 'J n (lamoua (real) (< (integer) !>)(** Cx 

i) 2) )3 

(slgiaa l n (lamboa (real! (((integer) iJ) £** (y 

i 3 2 ) 3 ))) 

£nOt (greater 

(** (integral (* 1 g)3 2) 

(* 

(Integral (** I 2)) 

(integral (** g 2))))) 


6.1.3 rtdtMmotica 1 Induction 


we can jonaulate the principle pf mathamati cal induction 
for the integers in the jollowing wayi 


(oefine induction {consequent £{< functor (ooole) { 4 integer) ) > 

pj > 

tall S*-p) 

(temprog ({ (integer) {n (arbitrary (integer}}) 

n 

i goa1 (S & p U)) 

(assert fSsp $$h)) 

(goal (s&p ( + s$n t)))) 

(assert (all S$p))>) 


The type (Junctor iboole) ((integer})} is the type of a junction 
which returns a boolean value ana has one argument which is a 
fixaq point number. li we ara given the iaets {=* ( + (j u) o) ano 


{clause {{(integer) x y))(^ £* *y i* *x t)> (* f+ iy *k) 11) 


than we can establish 


(all (lambda (integer) {((integer) *n)> <* {* 0 in) in)}). 


Tne following theorem will do induction on s-expressions* 


(deline expr-lnauction 
(Consequent 

[(Junctor (coole)((expr))) 
pH 

(ell 5-p) 

(tamprog 
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Utexpr) £a tarbitary iatom>)} 
(car Arbitrary texprJf) 

(car (arbitrary (exprllj)i 
(goal (S5p $*stoqi>i 
(assert £$$p -&&car>) 

(assert Sscor*) 

(goal (i^p Icons $$car S^corJJj'J 
(assert (all 

rta would lijje to try to do without existential quantifiers* He 
can, a laminate them in favor or Skoleqi junctions in assertions 
ana in favor of PLAWNhi? identifiers in goals, The problem oj 
finding proofs oy induction is formally Identical to the problem 
oi syntesizing programs out of "canneo ioops ,h „ The process 03 
procedural abstraction [which is explained in chapter 1 ) has an 
analogue which is "induction abstraction” (finding proofs by 
lnauction from example proois written out in full without 
induction). 

Descriptions 

6* I»4* j structural descriptions 

HLAWNLm can be u$ea to find objects from partial or 
schematic descriptions* The statement (perpendicular (line s-a 
S-bl 1 (line S'-c $- 0 ?) will be. de fined to mean that the tines 
(line SSa £&o> ana (line $&c S5d> are perpendicular* The 
mATDhLt&b function ( riAS y ALif argj tests to see if the identifier 
arg has a value, "lha value of igenuracesj is () and tne value 
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oi tgenbroces f) is ill* he shall adopt the convention th 4 it 
(gluey a bJ means that bricks, a and b are giueo. together ana 
(orthogonal (line a ol (iine c oil means that the lines between 
the centers ot o-ricks a ana t> is orthogonal to the line between 
the centers ot cricks c &no c, A three-COnter Is oe lined to oe a 
group of three orltks joined together such that two of them are 
diagonal to each other* A three-corner is shown in figure 1* 

In other words the following is a description 01 a three-corner * 


(define flnd^thrae-corner 
(consequent 

( ( (brick.) a b cl 1 
(three-eorn«r $Va svb s ?c) 

(goal (glueo $?a 57b Jl 
again (goal (gluag $sa (at toon S5 d) s2e!J) 

(goal (orthogonal (line S5a ssbJ (line 5$a sac 111 
ithcono ((thor 
(goa £ 

(glued Ssa let (non SSb) toon $$c!Ul 
(goal (glued &5b (non $5a)J! 

(goal (gluea Sso toon SSa!))! 

(iail-past again!Jill 


The description can he used in the obvious way to Jind three- 
corners * The statement (stick $*~a S-bl is defined to mean that 
SSd ana S$i> are end bricks O'! a line ol bricks and (between S^a 
S—D 5*-c) is.de lined to mean that brick 55b is oetween bricks 55a 
and 55c* tx&mpies of sticks are shown are shown in figure J* 


(define find-stick 

(consequent 

{((brick! a cl ((fix! nil 
(stick & ?a $?b 5^nJ 

iproved? (orick 5"jraJl 
tprovea? (orick &?bl> 

(goal (stick-segment S5a 5So tdlfferente 


A 



fl»roe- G0KlSr . 


(cube I) 

Ccu.be Z) 

{cube 3 ^ 

(■Blued l 
{slued X 3) 




{Slued 6 


tglued 8 g,} 
(Slued $ ioj 
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s*n z))} 


assert (stick ssb SSnJ)J> 


(jelihe rind-stict-sagment 
\ consequent 

£Hurlekl x y wKtfixl n)> 

(stick-segment s?x $?y ?-n> 

(thcono 

i (minuip £sJ 
Uhfeili 1 
((goal 

(gluuu i i'w ^ Vx J 

■lgoal (orthogonal (line b$x $5wJ tiine &$x 

i ?y J1J 

ith iaiU)) 

(tgoa1 (glueo V^X sly)) 

(thcona 

£ {tha na 

(goal (glued $7w & r ^v3> 

(goal (orthogonal (line $sy 

£ line &Sy 55x )) ) 

(th-jaiU)i 
(return (JJ)/ 

(goal (glued $?w $Sx)> 

(goal (Detween $$X SSw S&yJl 
(goal 

(stick-segment $5* $&y (sub] $$nj> 


£ J 

(try lino-stlck**segment {.!}>)))) 


$frw J 


6,1*4*^ Constructing Examples of descriptions 


Oiven a description of a structure (such as a stick) we 
would lixe to liable to oerive a general Method lor building the 
structure. The problem of deriving such general construction 
methods from descriptions is vary difficult. In this case wu we 
can construct a stic* oi length n with ends x a no y using the 
functions (uiLUt fatal iace2) which glues the value of fa cel to 
the value o- tacek and the function new-briCJ? which produces a 


new brick 


(define make-stick (consequent 

C£ibrlcfc> x'y w) ((fix) n)) 

(ttak*~&ticK $-x s-y i-ni 

(thconu (ilessp n 3J 

(glue (bottom ssxJ .(top 5iy)> 
iret urn ( U i ) 
iis (new-brickJJ 

(glue (cottom 5$iO (top S$w>^ 

(goal (make—stick S-'w &-y t— Sfcn l i > ) > 

6.1.4*3 Descriptions or Scapes 

(j, Papert has suggested that theorem proving techniques 
might be applied to the problem of analyzing ^-dimensional 
projections of 3—dimensional bricks. Theorem proving techniques 
have the advantage that they can take into account vary genera] 
kinds d 1 information. In this section we will give a icrmul 
definition of the problem. Aoolpho Guzman mas developed a 
program (called SEE) which tries to solve such problems. Many 
humans solve such problems by mentally constructing a symbolic 
3—aimensiona i scene which optically projects back to the given 
^-dimensional input. . fte de line e brick to be a connected open 
opaque region on 3^space bounoea oy a alnite number of planes 
such tnat if two planes intersect then they must be orthogonal. 
Furthermore, the complement of a brick is required to be 
connected. Thus bricks are alloweu to have holes In them. A 
J-dimensional scene is an arrangement of bricks such that no two 
of them intersect* A i-aimansional scene is a collection of 
straight lines in a plana. A 2 ^ 0 imansiona1 projection is the 
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optical projection or a 3-aifBensional scene onto a plane* A 
statement p about j-almensionaI scenes will De said to be valla 
for a 2-aiinenslonel scene r 11 Jor all 3-dimensional scenes t 
such that t projects to T it is the case that p is true lor t. A 
two dimensional scene rU will be saio to be ambiguous lor a 
language 1 if it is the projection of two J-dimensi Ortal scenes 
tJ and t2 such that there is a sentence p(J in i with pi) true in 

ti and falsa In t2. There are a number of primitive preoicates 

that should oe inducted in a language for scene analysis i 
{parallel x y) means that x and y are parallel. 

{Copland r x y J means that x anci y a re coplanar. 

(normal plane! airecteu-lines-eginent) means that the 
normal of plane! is in the direction o3 the directed - 
linesegraent. 

E restricted plane! pt i ptZ pt3i means that the normal 
to plane! is restricted to the angle ptl pt2 pt3* 

Esame-brick region! regional means that region! and 
region^ are part of the same brick. 

fadjacent region I region^) means that region! ang 
region^ are regions of the same brick that intersect at right 
angles. 

{element x y) means that x is an element of y. 
CIn-front-oi brick! bricki? means that brickl is in 
front of brieki* 

fresting-on brick! brickkJJ means that brickl is resting 
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on bricks 

( on—top—o i brick[ OricJ?2) means that brick! is on top 03 

cricks 

[subset k y) means that x is a subset oj y* 

(coordinates point! cooral) means that pointl has 4- 
dimensional coordinates coord'll 


line following statueieants about example! are valla as can be seen 
by considering where the norraaLs 01 tpe planes might lie and 


ueaucing co 

ms agueness 

until contradictions are iound 

(normal a 

(direction 

7 T 3)1 

(normal d 

(direction 

1 2 i 3)> 

(adjacent 

a b) 


(adjacent 

a c ) 


(adjacent 

b c) 


(normal c 

(direction 

I(J E 3 > > 

(normal a 

(direction 

7 4JJ 

(norma 1 e 

(direction 

2 4)) 

. ( adjacent 

d e) 


(normal f 

(direction 

3 4)) 

(adjacent 

d f) 


(adjacent 

e V 


(normal h 

[direction 

Id lb)) 

(norma 1 g 

(direction 

15 I6)> 

(ad jac ent 

g h) 



The following statement about example 1 satis liablet 
(and (resting-on (brick a b c) (bricx e id!) (resting-on 
(oriclt a o t) (brick g hill 


Ihe foilowing statements about example example are valid* 

(adjacent a c) 

(adjacent a b) 


4.adjacent q t j. 

(normal a (direction \2 14)) 
(normal c toiruction Js S4)> 
(adjacent g h) 

(normal g (direction b 6H 

(normal h (direction o 6)1 

(not (adjacent c a ) J 
(not (adjacent 0 o>) 
(adjacent a e) 

(adjacent a 1) 

(adjacent d f) 

(normal e (direction 4 (3J) 

(normal d toiraetlon u 13)) 

(normal f (direction II 33)) 


The lolloping statement about ligureZ 5 satisfiablet 
land 

( Same- region c g> 

(same-region o h) 

(same^brick a b c g hJ 


The three dimensional coordinates of points are obtained by 
using more tiian one camera to view the scene or using a focus 
map. In the case where we have coordinates as a primitive 
predicate, the deiinition of a projection oi a J-aimensionel 
scene must be modirlea to include the .^dimensional coordinates 
or ail the projected vertices, in the case where- we have the 
three dimensional co-ordinates of the projected vertices, we can 
deduce that two planes are part of the same orick if they 
intersect at an acute right angle, Since the object that is 
being viewed might be so far away that accurate coordinates 
cannot he obtained* a deductive system should be developed which 


does not use coordinates# At the very minimum a fia ra core 
□eauctive system for tne analysis of 2-dimensional projections 
shouia be consistent and every valid statement shcu lo oe 
proveable* That is every theorem of the system should do 
satis fiaole (there is at least one Interpretation that satisfies 
the theorem!* Interest in questions of satisjiabilIty comes 
from toe fact that some interpretations are far more likely then 
others In the real world. Statements that are to be tested 3or 
satisfiability must be mane as strong as possible in oraer to 
provide a meaningful test* Although the linking rules are 
mathematicslly very elegant* In tneir present form they do not 
adequately represent the semantics of the optical projection 
rules * the value of Uuzraan's program is that it provides 
conjectures acout which regions are satis liable in the relation 
same-brick* however* the program suffers because |t aoes not 
.have any explicit knowledge of optics* fte would advocate an 
approach that makes greater use of deduction to test the 
validity or satis ilabi iity of a sentence* Uuestlons oj 
satisfiability ana validity of sentences with respect to any 
given projection are decidable since the theory of real dosed 
fields is decidable* hlficlent algorithms should be developed 
to test whether a given sentence is valio or satisfiabla in a 
pro je ctjon* 

r'LANivtH wogla benefit greatly from an efficient parallel 
processing eapacility. The system would run faster if it could 


worK on its goals in para lie 1. Uuite Often a goal will tail 
after a short confutation along its pain* The use 01 
parallelism would enable us to get many goals to fail so that we 
could adopt more of a progressive deepening strategy* ne would 
lixa to carry out computations to try to reject a proposes 
subgoai at the same time that we are trying to satis ly it* tfany 
computations can be carried out much faster in parallel than in 
serial* hor example we can determine whether a graph with ft 
nodes is connected or net In a time proportional to {* (log n ) 
Hog nJl* it has bean tndwn for a long time that LISP 
computations using parallel evaluation of arguments are 
determinate 1 I the functions rplaca, rplscd T and setq are 
prohibited* we could impose a similar set ol restrictions on 
PLANNER, Another approach is to introduce explicit parallelism 
into the control structure, he could have n j i w and "1J U delimit 
parallel calls for elements ana “i*" and ">i rt delimit parallel 
calls lor segments. A parallel function call will act as a 
fork in which one process is created to go the function call and 
the other proceeds with normal order evaluation, >or example in 
1* !(* 3 4>i 1 + 7 b)'t we eoulo compute 3*4 in parallel with J+b, 
The copy function could be sped up by a factor proportional to 
the number of processors* 

(define copy (lambda (x ) 
i bond 

((is (atomic! Six! 
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(t 

Clicopy (l <copy (rest $$x>>)0)}J 

However* wa would still have problems communicating between the 
branches or the computation proceeding in parallels Partly this 
a problem Oi sharing an indexed global data base between 
parallel processes, he would need the standard locic and unlock 
primitives and unlimited use 03 assignment in order to heap the 
computations synchroniiecU but ii we allowed the osn oj Iock 
and unlock ano unlimited use od assignment, the programs mignt 
becooie Indeterminate. One of the most important properties that 
can be proved about a program Is that it is determinate* A more 
powerful wait primitive would mate synchronization easier* I] a 
process calls (.wait predicate! then its execution will be 
blocked until the predicate becomes true. 

G*i*b Semantics of Natural Language 

Although problems for PLANNtft are typically phrasea in a 
perfectly formal, precise, unambiguous syntax, we will usually 
not find the semantics as well. Oe fined* li we say (. i if Iv&ry 
ha ppy>) John) instead 01 "John is vary happy*" wa will not 
thereby have made the concept of happiness any less nebulous -lor 
the machine* Nevarthelass it is convenient for a problem solver 
to have such concepts although they are not rigorously defined* 
Problems of semantic ambiguity ana clarificaton can require 


arbitrary amounts si computation in oroer to be adequately 

rusol v e#cs* t-or example consluer the following sii'iLple example on 

how semantic amoiguities can be rasclveut 

< is-smaller-than hano {' (pig pen>>) 

toeim* examplesf-Dar-hl lie 1 

(antecedent 


pen > J} 1 


(Hohjectl x yl) 
i in $-x s-yJ 

tthcono 

{(is pen Six) 

(goal {is-sjna iler-than S'jfy t J (pig 
{assort (in i* (fountain pehJl S$y))J>i* 


Now if we assert fin pen .hang), PLANNED will conclude that (in 
( ,y- (fountain penJJ ha no) is true since a hand is smaller chan a 
pig pen* One oj the important difficulties that have plagued 
most oi the programs that have been written to answer questions 
in English is that they ate trying to solve two very hard 
problems at the same tlmo* first they must mete sense of 
English syntax ano second they noad a poweriul problem solving 
capability to answer the question once they have “understood" 
it* Ambiguous cases should be resolved on the basis oj 
deductive logic ado not on the basis oi some Uniting scheme such 
as “semantic memory”* As it stanos PLANNER provides 
sophisticated mechanisms ior solving problems in formal 
languages* A program could be written (perhaps in PLAHhEP?) to 
translate English into PLANNER thaorams for problem solving* 
Conversely we toulo try to translate PLANNER theorems into 
simple natural language* (pur pri singly translation into natural 
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language can be very ackward becasue natural language fatk$ many 
01 the descriptive and procedural primitives of PLANktft. 


Currant Hroblems ana i-oture work 


fie shall call the logistic system oaseo purely on the 
primitives of PLANNER "robot logic" - Robot logic is a rinu of 
hyorio between the classical logics such as th* quantifications! 
calculus and intuitionisro T ana the recursive Junctions as 
represented by the lamDoa calculus and post productions* Ihe 
model theoretic oe i inition of truth in robot logic is 
complicated by the existence ol the primitive erase ana the 
whole PLAhNEtf interpreter. The semantics o i PLAHNEJi theorems 
era most naturally oeiineo dynamics Ily by the properties of 
procedures* The semantics of theorems in the qusnti jicational 
calculus can. be oe fined by moo els of possible worlds* In 
comparison with the quanditificational calculus PLANNER would 
appear to oe more powerjul in the lolloping areas* 

control Structure 
pattern matching 
erasure 

local states of worici 

There are interesting parallels between theorem proving 
ana algebraic manipulation* The two fields face similar 
problems on the issues oj simpiification f equivalence of 
expressions * intermediate- expression bulgej ana man-machine 
interaction* The parallel exteno-s to the trade O 1 : l between 
domain, dependent knowledge ana efficiency* In any particular 
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case, the theorems need not allow PLANNER to lapse into Its 
default conditions* It uUI sometimes happen that the 
heuristics for a prooiem are very good and that the proof 
proceeds smoothly until almost the very end. Then the progem 
gats stucx ana lapses into default conditions to try to push 
through the proof* On the other hero the program might grope 
for a while trying to get started and than latch onto a theorem 
that knows how to polish ofg the problem in a lengthy out fool 
proof computation* PLANNER is designed for u£e where one has 
great number of interrelated procedures ^theorems! that might be 
of use in solving some proolem along with a general plan for the 
solution of the problem, Ifte language helps to select 
procedures to refine the plan and to sequence through these 
procedures in a flexible way in case everything doesn't go 
exactly according to the plan, The fact that PLANNER is phrased 
in the form df a language forces us to think more systematically 
about the primitives needed for problem solving, Ae co not 
believe that computers will oe aole to prove deep mathematical 
the crams without the use of a powerful control structure* Nor 
do we believe that computers can solve, di fficult problems where 
their domain, dependent tnowleoge is limited to linite^state 
difference tables el connections between goals ana methoas* 
Difference tablet can be trivially simulated by conditional 
expressions in PLANNtft, 


o + 2 page 2J 


bijlicult problems for PLAHHHR 


he would be ejreteful to any reader who could suggest types o] 
problems which might be oifJlcult to encompass naturally within 
tn« present formalism* pLANNkR is intenoeo to be a good 
language for the creation ana description 03 problem solving 
strategies* Currently it operates within the restriction ol 
generalized stack discipline* by relaxing this restriction we 
could mate the language completely restartable at the 
considerable cost in efficiency af r _ having to ganoage collect the 
stack* 

Memory* There is never enough fast ranoom access 

st ora ge * 

Exploding definitions* he cannot afford to replace every 
term by .its .oe finition in trying to prove theorems* However* in 
the proof oi almost every theorem It is necessary to replace 
some terras by their definitions, uomain dependent methods must 
be developed to mare the decision in each case* 

Creating PLAfiNEik theorems* he need to determine when if 
is desireaoie to cons Up PLANNER theorems as opposed to 
dynamically linking them together at run time* At the present 
we -have Only a dew examples of nontrivial constructed theorems* 
Ift-e can generate Some from the functional abstraction of 
protocols ano from attempts tc construct schematic proofs od 
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theorems» Others are generated as the answers to simple 
problems* ror example if we ask the computer how it would put 
all the small green and yellow bricks in. the red box, then it 
might answer* 

tthfor Utfacel facel face5) ((brick! brick}) 

((proven fsmall-brick S'-brick))) 

(proved? ( face S^-facei &£orfcit)} 

(proved? '(color SSfacet green)) 

(proved? (face i-face2’ ssbrick)) 

(proved? (color 5$iac#2 yellow) 

(picn-up 5$brick) 

(carry-to (above (' (red box)))) 

igrop)1 

T, ftinograd has developed a program to translate English into 
PLANNER theorems. An interestiong experiment that could be 
attempted would be to modify d chess porgram so that It would 
return a PLANNER program as well as the symbolic description oi 
a position. The idea is that the PLANNER program would 
represent the plan of action that would be taken in case of the 
various moves that the opponent might take, n. Henneman has 
investigated some oj the possibiiltes dor doing planning in king 
and pawn end games. The problem seems to be very difficult out 
not Impossible given the present state of the art. 

Manipulation Ol PlANNEii theorems i pLANNtft provides a 
flexible computational base for manipulating theorems that can 
be put in disjunctive norma 1 form, «e need to deepen our 
understanding, so that we can carry out similar manipulations on 
PLANM=H theorems with the same facility. 


Progressive deepening* he neea to make more use o j trie 
Styiu of reasoning in which we construct a plan lor the solution 
01 a problem Jr cun necessary conditions that th,« solution must 
have, attempt to execute the plan, find out why it doesn't nork, 
unu then try again, Ine style is a it en used In Chess where very 
much the saline game tree is gone over several times* each time 
with a deeper unoerstanoing of whet lectors are relevant to the 
solution, 

uarhage Collection of assertions* Statements whicn have 
oeen asserted should go away automatically when they can no 
longer be of use, Uhiortunetely, Because oj some logical 
problems and becu&use oi the retrieval system o i rLANNcR, we 
.have difficulty in acnieving completely automatic garbage 
collection, The erase primitive of the language provides one 
way to get rta of unwanted statements. If the asserted 
statement appears in the local state of some process instead of 
in the glooai d-ata base then it will disappear automatically. 

Simultaneous goals* he olten find that we need to 
satisfy several goals simultaneously, rte usually try to 
atcomplisn this by choosing one oi the goals to try to achieve 
first, however, when working on the goai t wb should keep in 
mind the othar constraints that the goal must satisfy. One 
solution is to pass the goal to be worked on as a list whose 
first element is the goal ana whose succeeding elements ere the 
other godls which must be Simultaneously satisfied. 


tonconstructive prooist The most natural way to ao a 
proos ny contradictor; in PLANfcbk U to try to calculate in 
advance the statement which ultimately will produce the 
contraaiction* The methou is to sino a statement 5 such that 5 
Is provable and tnot SJ is provable* tore precisely, w a coMpu t e 
e statement b t raaiie U a goal* ano then majEe tnot 5J a goal* 
Another type oi problem that PLAHWtk will not solve very 
naturally is given a preoicata p.defined in the first order 
predicate calculus to show nonconstructlvely that there is some 
object x such that tp *1 is true. 


7, Monels of Procedures and the Teething til Procedures 


7* f Monels of Procedures 

7.3*'l Moaels oi Expressions* intentions m IN'itMJJ-tft 

A problem solver needs to have some way to xnow the 
properties of the procedures which it uses to solve problems. 

It can use the knowledge which It has as a partial mooal of 
itself. In order to be able to stood itsell, it needs* 

I* a way to express properties of its procedures* 

2* A way to establish that the properties do in iact 
hold for its procedures* 

he shall express the properties of an expression x by 
the following function* 

ilMIENT predecessor x function successors^ is true ii 
predecessor evaluates to true, the function applied to the value 
oa x is true t and the successors ail evaluate to true* The 
value ol the function intent is the value oj x* The lunctlon 
Intent is u£ad to $tat b a model for an expression x* As might be 
expected tna models are stated in PLANNttf* The intentions are 
established by LhlTthbEfi which is the language in which 
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intentions are statecu The proof is by inouction on the 
activations of the procedure. Thus for the control structure 03 
LIS^, the prooi is by recursion induction* To avoid confusion 
we Shall write the intention varlalbleS in Upper case* Also we 
snail use 1( and )! as meta-braces for { and ) respectively, 
her example the intentions in the prog below are ail true* 


i prog i lix) t c < 3(a U (b 2 ))> 

Untent (goal 1 s$a) >) 

U Yes the ioenti iter a was jtnuead Initialised to t 5 
hi ill wonoers never cease?) 

i intent (goal £* S$b H+ $Sa 3) ! J )) 

Untent 

(goal ?$b 2)) 

iassigr. s*b { + $sb I >1 
{thlambda (X) tgoal (■ $5X 3 J > J 
Igoal O $Sb 3 ))) 

if tie have just verified that an assignment statement 
can change the value 01 the identialar b from 2 to 3) 
iraturn ssb)) 

The essential Ides for Intentions comes from tne break junction 
of LISP introduced by a* Wart In. The expression i INTEfJT l ON 
pattern exp) will be used to express the fact that the pattern 
must match the value of &xp. An intention is not allowed to 
assign a value to a non-Intent ion identi Her and ordinary code 
is not aJUowea to reference intention identiHers. «e shall 
distinguish intention identifiers item ordinary identifiers ny 
putting them in all caps* The intention UNTLND declaration 
predecessor expression function successors) is exactly like the 
function intent except that Intention variables can ne declared 
in the declaration* In addition we need a function {uVLkAU- 
aaeleration predecessor expression function successors) which is 


exactly like the function “intend" except that it is usap to 
state the overall Intention of a procedure* All the Intention 
in the function Jaet era true where 


(deitne fact {lambda ( iix) C C t fi k 1 nJ> 

(overall U 

{ 900 ! tnot tlessp s$n 0)3) 

(intent 

{assert (not (lessp s&n alii 

(pr09 (fix) (Uiiit) (temp J 3 (i $$n)>) 

Undent (goal £* $5teinp 7)1) 

(intent {goal $Si T > >) 

again 

{overall U 

{goal sstemp [(factorial SSi>i)) 

(intent. 

(assert £ = SSterap (factorial £$i))> 

1 cany 

((is 0 $S1J 
(intent (thcond 

( (goal (= SSn all 
(goal (- $Stemp H)1> 

((goal £not (* S$n 0)3) 
(goal ( = $$temp St* SSn 

((factorial It- $$n 1)J>U ))>))) 

(intent (goal £= $stamp Mfactorial 

$&n)[ ))> 

(return sstemp))) 

(intent (goal £^ SStemp [(factorial 
(assign $itejnp (* S$teuip $5i)J 
(assign $U l* $Si 1 )) 

(go again)) 

(thlsmfcaa (X) 

(goal <- $$X-!( factorial ssnijj}) 

{thlasiboa £X) (assert s&X 'Uactorial $Sn)i3)>) 

wnere 

.(oeiine factorial (lamoaa (fix) (((fix) n>) 

(overall (i 

(goal (not £lessp $5n 03 J) 

(intent 

(assert (not (iassp S$n U>)) 

(cono 

((is 0 S&n) 13 

(t t* (factorial (- S$n 1» .S$n>)> 

(thlamnaa (X) 
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(temprog ( ) 

(assort £» $&n 0)) 

(goal (* SiX IJ }> 

(temprog U 

{assert (not ( = ssn Q>J) 

(goal ( = S$X !U $$n ItJact H- S 5 n 

UlUm)) 

{goal <= s$x l<fact $sn>!>>J 

Cthiamboa (X) 

{assert {theorem (antecedent (} 

(- Sin u> 

(assert f= SSX 1 ) )))) 

(assert (theorem Canteceoent £ ) 

(not C= SSn OJ) 

(assert {* s$x i(* ssn Hiatt ! {- sSn 

nounim 

(assert (- s$X I (.fact $«nJJ>}>) 


The Intentions lor the function fact J defined below are 
not so easy to establish. 


{define fact'* (laiLbda (lix) {((fix) n>) 

{overall {((fix) (AHU SSnJJ 

{goal £not (lessp 5$n U)J > 

(intend {({fix) (AMO SSnJJ 

(assert (not ilessp SSn □))> 

(prog (fix) £((Jix> (temp M)> 

(intent (goal (= SStemp UJ) 

(i test to see if the identl Her temp was really 

inila11zed to l) 
again 

{overa 11 £ i 

(goal (■> iitemp Hcomoinations S&arq 

isnlim 

(intent 

(assert (* Sitemp ! (combinations sSarg 

$in>!>l) 

(coda 

((is 0 Ssn) 

(intent {= SStemp ! (factorial S$AU£j)!J) 
{return SStempJJ) 

{intent (greaterp Sin Oil 
{assign Sitemp (* $stemp SSn>) 

(assign S?n (- ssn 1>) 

(go again)) 


(thlambda t)U (goal < =■ S$X J(factorial $$AHUl9,U? 
(thiambda (X) (assert (- l < factorial $SAnOJ )) >? > J j 

(define combinations (fix) (((fix) rJCtjixi rl) 
lovers LL U 
(thano 

(goal ( no t (lessp $Sn iJO)} 

(goal (pot (ies&p 0))1 
(goal £JUssp $Sr S$n>)> 

(int ent 
(thana 

(assart (not flassp S$n (>>)) 

(assert (not (lessp £$r U>)J 
(assart flessp $6r £&n>)) 

( co no 

£ Us s$n sSr> 1 ) 

ft {* £&n (combinations (- $£n 1} 

(to lambda (X) 

(tiicond 

((goal £= $sr O)) 

(goal C- £$X !(factorial ££n)!)>)})) 

(thlamboei (X) 

(thcona 

( (goal (ss r (J J ) 

(assert i= $£X Miactorial s$n)l))>)>J 
me can.de line the data types oi LISP and write 
intentions for the LISP primitives* The type "xpr* is the type 
s-expression* 


(die line xpr (type (J (vei £) (atomic) ((?} <xpr*)})> 

Tha type ■'plist" is that oj property list* A property list is 
List c I odd length such that the even numbered elements are 
atomic* 

(define plist ftyps O ((?} <ster (atomic) (?)>)) 
he can write the Intentions for car as follows* 

(da line car £laiabaa (t(xpr) xU 

(l the Junction car has one argument which Is of type (xprH 
(overall ffOLD-X S&x)) 

(goal (not "(atom 5$X>'3 
(car ££x) 

fthiamboa <Y> ithprog £h) 

(assert feq 5$QLd-X £5x>))})) 


(ueiine car (lambaa Ixprl (({.xprl xj) 

{overall f i OLD-X $$xJ) 

{goal (not » {atocn ssx) ! > > 

.{cor sex) 

£thlambda f Y J 

{assert Caq SSQJJj-X £Sx,))}}M 

The function “Identity" which is used below is the. Identity 
function- 

{deiine cons (lambda fxprl £((,?> x> (ixpr) y>> 

{overall MOLD-X S$x> £QLJ>¥ SSy>) 
t 

icons &5x SSyi 
(tniambda tZJ 

(thprog [£t tnowlJ > 

(assert {theorem {consequent iu w* 

{not {descendant $$Z (time $?w 

&?□!)> 

{goal (before SSu 
{assert ieq $$OLD-X $$xil 
{assert (eq SSDLtW 5$y)> 

{assert £eq Hear 5$Zli SSX)) 

{assert (eq Hour SSZH $6yJl 
{assert {not Hatom 

Allowing side effects considerably complicates the 
process of proving Intentions* He shall proceed by norrcwlng a 
tricfc from the the Greeniolat- Nelson LISP compiler* Hlth each 
computed expression we will associate the time at which it was 
computed. The actor (TIME e tJ will match an expression e that 
was computed at time t* The current time will be the value Of 
tha the function (NQW>, The function (NEXT tl will evaluate to 
tha next time alter t* The statement tdescenaant x yJ wil be 
true only If x tan be obtained from a car-cdr chain from y. tor 
example £ descendant {car (car x>) xl is true* 


(define get (iambas (((atomic) pJ ((atomic) indJJ 
(qvttrali ((OLd-P $5p3 (GLIMhu ssinol) 


t 

(gat 5$p S&ind) 
t thlambda CZJ 

(assert foq $$QLU-P S$p3) 
i assert {eq SSOLLHlfitl $$ind)>)>>) 


(me line pot (Isinboa ££ (atomic) p) ((atomic) inoi C(?) value)J 
(overall ((ULb-Ihb S&ina) (QLI>VALUt $Sv.alue )> 
t 


(put s$p s&ino s$value) 

(thlambda < X > 

(assert. (eq 55X ssp)) 

(assert (eq $SOLI>-IWD $&ind>) 

(assart (eq SSOLU-VALUt SSvalue)) 

(assart (theorem (antecedent (I) 

(not (= $21 mna>> 

(assert (eq iiget SSp $$IH Jigst ,$$p 

$Sind J 1 ! J )).)) 


(assert (theorem (consequent (1) 

(eq !(get $$p $31)1 !(get $$p $$ifio)!) 
(goal f- 551 mndWJ)) 

(assert feq lvalue !(qet -$$p SslndU)) )) )J 


Using the above intentions, we can prove tne lolloping 
intention. 

(overall (Y) 
t 

(get 

(put $$p 5$tnol $5valu&) 

5$ina2) 

(thiarabda (X> 

{thconu 

((goal O $&Indl SSinoi)) 

(goal (Sq $5X S&value))) 

((goal (hot f* $Sino1 $$.ind2)J) 

(goal (eq $&X Jlget $sp $Slnd2> i H)))) 

(define rplacd (lambda ££(xpri x ) ((21 y J * 

(overall ((GLb-X $$x) (OLD-Y $$y) £l (now>n 
(goal [not !(etoiB 
(rpiacd 55 x $$y) 

(thlambda il) 

(assert (eq 5$£ $5xJ) 
fassert (eq SSOUW $$y)> 

(assert (theorem (consequent (H> 

(eq (time $?h $$T) (time $?ft (next 


$$ ti) > 


5$r> ?>) >)) 


{goal (not (aescendent S&x (time SSh 
(assert (eq !(car S^QLll-X)! I ( car SSxljiJ 
{assert (theorem (antecedent in) 

[not CdeSCenaent S4x (time SS>'11)}J 

(assert (eq (time SSn S$T> (time Sirt 

{next SIT)))))}) 

(assert (sq Jtcdr Ssx)! $$y);)j)j 


(define rplaca (lambda U(xpr) x) {(?) y)) 
(overall (tULL-X S$x) (QLl>-¥ SSy) £T (noa))) 
(goal (not. Hatom s$x)i>> 
trplsca $$x &$y> 


SSTi)> 


(thlambda (£) 

(assert (eq $$Z SSSC)) 
dessert (eq $50LU-f 5$yl) 

(assert (theorem (consequent Eh) 

(eq (time 52h &STi (time fcirt {next 


{goal (not (aeseenaent (time SSh 

S&T^ J Ji > >J- {assert (eq !lcar 5&GLU-X1! ! { car $5x)! )) 

{assert {theorem (anteceaent trtJ 

(not (descendent Six {time S?h SSllJH 
(assert (eq (tiQie SSrt £51) (time SSltf 

(next $$!»)}>» 


(assert Ceq ! (cdr SSGLJJ-XM !(tar &Sx)!>) 

(assart feq Hear $$X>i S£yM)J)) 


7.1.2 Models in Patterfts 1 Aims 


Aims ere like intentions except that they are actors and 


occur in patterns* 

(AJ* predecessor pattern down up successors) Is the form 
for a call to the actor aim, An aim will be saia to oe attained 
when the following conditions are satislledi 

Cl) Its predecessor evaluates to true 
(2) he apply the function, oown with two arguments. The 
first is the expression to be matched. The second is O 11 ana 
only if pattern doesn-'t match* 

CJj he apply the Junction up with two arguments* The 
first is t) if ana only if the rest of the pattern doesn^t 


match* The second i.s U if arid only if pattern fails. 

(41 The successors evaluate to true. 

Ihe function down expresses the intent of the downward action of 
tne pattern and the junction up expresses the upward going 
action* The actor (AlkINU declaration predecessor pattern down 
Up successors) is exactly like the actor M aijn“ except that 
intention variables may he declared. Tor example the aim in the 
folowing expression is attained* 


taiming ({QLI^h S$f)) 
t 

(thlambda fX Y) 

(assert <eq 
(assert f * s$Y t>)) 

(thlambda {X Y) 

(thcond 

((goal t= ssk m 
(assert Ceq $sf $SULJ>K>) 

(assert f= &SY £ J) > i J 
((goal (= ?*X t)> 

(assert Ceq £$ l 
(assert (- &SY tJ)J>)) 

l'he value od f changes only if the rest of the mutch Succeeds, 
The actor (ENllHt declaration predecessor pattern down up 
successors) is exactly like the actor "aiming'' except that it is 
used to express the entire intent of the pattern, r'or example 
for the actor "atomic" which takes no arguments .ana matches only 
atoms can oe characterized by* 


fdeiirm atomic (kappa (j 


(entire ( > 
t 

(atomic) 

(thlambda (X Y) 
ithcono 

< (goal ! (atom J J) 
(assert (= $5Y t J > > 

((goal (not iiattwn SSAj 1 ! 1 > 
(assert £ = Y ())))!) 

(thlambda (X YJ 

iassert (- ssx ssvjj;>j 


7* I *3 toouels of PLftNNfcK Theorems 


he shall construct mooels for PLAWNiiW theorems in much 
the same manner as lor MATCHLfcSi patterns* 

(TriINTENT predecessor x uown up successors} is true if 
the following conaitions are met! 

il> the .predecessor is true* 

(2J he apply the Junction oowh with two arguments* The 
first argument is £) if ana only if the evaluation of k fails* 

If the first argument is not O then the value ol the second 
argument is the vaiue 03 x* 

(3) We apply the function up with lour arguments* The 
first is O if end only if the rest of the computation fails* 

If the first argu«ent is O then the second argument is the 
message of the leilure. The third argument is C) if and only if 
the evaluation of x lails* If the third argument is not U then 
the fourth argument is the value oj x* 

The function TnIhiE*-JiJ is exactly liJte the function 


M t.hirLtent“ except that a declaration of intention variables, must 


be tne alrst argument* t-cr example the foliiwng intention Is 
always satis flea* hiacall that toe function "assort l" will 
sssert a statement if has not already been proved. 


Ithintena ((a 1r ea ay -p rov ea ()}) 
t 

iassertl (subset a dJ} 

(thlambde (X Yi 
I thcono 

((goal (proved ( sunset a b j j 
(assert (= SSX (j)J 
(assign $i alre^oy-proved t ) 

(assert O S&Y (Jill 

((goal (not (proved (sua-set a b)JJ) 

(assert (proved (Subset a P))l 

(assert i= SSX til 

(assert (- $SY (subset a bJlJJi) 

(th lambda (X Y U V> 

(thcond 

((is (} ssalready-provedl 
(thcorvd 

((goal (= $$X i }) 

(erase (proved (subset a 

bl) > J J J ) 

(assert <- $SU $sxjj 
(assert (= $$V 


he would like to show that if we reverse a list twice 
than we get the original list. 


(define reverse (lambda £1) 

(overall () 
t 

(intent 

t 

(prog (<Y> £u SSl) (v (J)l 
again 

(overall () 

(goal (* &$v ((reverse Hsub S$1 

S5V>! J1 J » 
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iIntent 

{assert { = S5v {{reverse HsuP ssl 

{ cona 

l i i a { > > 

(rtfturn. £iv})} 

{assign $Jv (i\ $$ui $Sv>) 

{assign &iu (rest s$uli 
igo again 1 > 

(thlambda (X) 

{goal (= S$X Krev 
{goal <- $$1 {{reverse 
Cthlampga (X) 

(assert { = S&X Hrev $$!>{>) 

{assert (- {{reverse $$X .i IJ > ) J 


tduilne suo {leinbda £x y) 

(overall C 1 
t 

{intent 

t 

{ COftQ 

((is $5x $Sy) 

, ( JJ 
it 

{{'F &Sx) <sub (rest S$x}> SSv))JU> 
(thlambde (Z) 

(thtonp 

Ctgoai {= $ 5 ?y ())} 

{goal (* SiZ $Sk>JJ >)} 

(thlampda (£) 

i thqond 

({goal {= Siy HJ) 

(assert. O $$z s&x)l>})> 


(define rev (lambda (1) 
{overall {) 
t 

{intent 

t 

{ cona 


£tatom s$ll 
$$i> 

11 


(<rev (rest {I 

Cthl=*nibda (X) 


ssl) ))} 


{goal C= $SX {{reverse s$l}!Jl 
{goal C- s$ 1 {{reverse $S>X1!)}J 
( thia.nOoa (X) 


(assert (euql § SX {(reverse sslHJl 


t= $$A Jlrev&rse $$>£} i J)J ) JJ 


7.2 leaching Procedures 


Crucial to our understanding of the phenomenon o I 
teaching is the teaching ol procedures* Understanding the 
teaching ol procedures is crucial because oJ the central role 
playeo by the structrual analysis of procedures in the 
lounastions ol problem solving* how cart procedures such as 
multiplication, algebraic simplification, ana verbal analogy 
problem solving be taught efiiciently? Once these procedures 
have been taught, how can most elective use ol them be made to 
teach other procedures!? In addition to being incorporated 
directly as a blact box, a procedure wnich has already been 
taught tan be gsea as a moael Jot teaching other procedures with 
an analogous structure. One ol the most important methods 01 
teaching procedures is telling. For example one can be told the 
algorithm for doing symbolic integration* Telling should done 
in a high level gcal*-orlentea language* PLANNER goes a certain 
distance toward raising the level of the language in which we 
tan express a procedure to a computer. The language has 
primitives which implement fundamental problem solving 
abilities* Teaching procedures is intimately tied to what 
superlicially appears to be the special case of teaching 
procedures which write procedures. Tha process of teaching a 
procedure should not be contused with the process of trying to 


get the one being taught to guess hi hat some clack nox procedure 
really does (as is the case in in sequence extrapolation lor 
example), iha teacher is duty bouno to tell anything that 
iriight help the one being taught to understand the properties and 
structure ol the procedure, ne assume that the teacher has a 
good model ol how the student thinks* Also* just because we 
speak of “teaching", we do not thereoy assume that anything like 
what classically has bean called laarning is taking place in the 
Student, however f this does not exclude the possiblity that the 
easiest way to teach many procedures is through examples, ne 
can give protocols oi the action oj the procedure for various 
inputs ana environments, tty "variablization" (the introduction 
ol identifiers for the constants ol tne examples) the protocols 
can be formed into a tree. Then a recursive procedure tan be 
generated by identifying indistinguisnahle noues on the tree, 

De call tba above prO-tedur* for constructing procedures iron 
examples the procedural abstraction of protocols* Procedural 
abstraction can be used to teach oneselj a procedure* 7*2*2 by 
Procedural Abstraction 

7,2*2+4 txamples of Procedural Abstraction 


7,2* 2*4*1 building a Pall 


ne shall explain procedural abstraction In more detail 
using the example oj building a vail* rte define (brick-at S-w 
S^hJ to mean that there is a brick: at the location with, width 
4&w ana height $5h and define the Statement (wail $-w to 

mean that there is a wall of wioth S$w .and height 5$h using the 
definition (conjunction (((fix) wl> w initial 0 step 1 until 1= 
SSww $5 wX conjunct ion (<(fixi hhJ> hh initial S$h step -I until 
1*0 SShhl <bri,ck-at S$ww S&hh).l>* Thus (wall 1 2) means (ana 
(and £brick-et 0 2 ) (brick-at 0 iXbrififc-at (J 0 J) (end (brickbat 
1 2) (orick-at I I > £brick-at I OH* Notice that the syntactic 
definition of a wall runs orthogonal to the way in which a wall 
has to be constructed* Thus we could not use purely syntax 
directed methods to construct walls* 


(define build-tower 
(consequent 

'(((jtlx) w h> £<?> (actions ( )>}) 

(brickbat $?w $?h) 

(thcono 

((not (hasval? S$h)> 

(assign *$h 0> 

(go rest)) 

£1* 0 S$b) 

(go rest)}) 

(assign (factions) (goal (brick-at S?w (- S$h 

: J>))) 

rest 

(thcond ((proved? (brick-at S?w S?hl) 

(return O))) 

(goal (put-brick-at $?w S?h>) 

(goal (check-brick-at S$w sSh)) 

(assert Ibrick-at ssw s$h>> 

(return (factions ! (put-brick-at £$w SShXXJJ 

if we give PLAiiNEk the task of constructing a (wall l 2) , then 
tne actions that will be taken ere* 

(put-briek-at o (J) 


{put-brick-at 0 11 
{put-brick-at 0 2} 

Ii the goal is (wall 2 I) then the actions are* 
iput-bric.k-st 0 UJ 

{put-brick-at b fl 
{put-brickbat J U> 
tput-brlck-at I f) 


foe shall use the expression new !is to mean that a new idanti Her 
is bound and initialized to b. we shall use the expression US 
9) to ipean a reference to an identifier whose value is 9i the 
expression <Si 3 1) weans that an idODti Jisr with valua 3 is 
assigned the value 7. wore precisely, the protocol lor (wall I 
2) is 


{new U 2 J 

(new {WO-VALUE NO-VALUEJ 
{assign U* NO-VALUE Ul Oi 
FALSEt C= {$5 ()> US I >i 
SO 

(assign U* MO-VALUE til OJ 
FALSE* U ($5 01 US 2>1 
SO 

tput-brlck-at US u> {%$<})) 

{assign U* 0 T) { + tSS 0} 1)1 
FALSE* U US U US 21 } 

SO 

{put-brick-at US 01 {$5 Hi 
{assign {$* J 2> i* US U U> 

TRUE* {- ($$ 2) US 2 >1 
SO 

{assign (si 0 ! 1 {+ Us 0) til 
TRUE* t= U$ Ii Us 1 ii 
so 
. [ > 


The protocol for (wall 2 13- is 
{new 12 IJ 

{new [NO—VALUE NO-VALUE] 
{assign {5* NO-VALUE 01 t)J 
l-ALSt* {= Us 01 US 21 i 


SQ 

(assign U* wq-value 0 } u> false* l= u$ o) tss i}> 

SO 


O 


(put-brick-at ( 5 $ O) U$ (jJ> 

(assign U* 0 I) {* (s$ 1>> i)> 

TRUE* (» <ss \} Us ]J> 

SO 

(assign is* 0 |J <+- Us 0 ) IJJ 

FALSE* 4= ( S& U U$ 2>J 

SO 

(assign (s* 1 0} 0) 

FALSE* U U$ 0) 3} 

SO 

(put-brick-at Us I ) Us (ij) 
(assign ($* 0 ]> (+ U$ 0 ) 'I )> 
TRUE* (= US U Us 1)i 

so 

(assign ( $ * r 2 ) £+ U$ 

TftUEi (■= (SS 2 > i $S 2 >J 
SO U 


Thft protocol tor (wali 2 2> is 
(n&w £2 (J 

(new £WO-VALUE MO-VALUE J 
(assign Ut NO-VALUE 0 } 0 > 
FALSE * U U$ (J) U$ 2 )} 

SO 

(assign ( 5 * NO-VALUE 0 > 0 > 

false* u ($$ uj tss a)> 

so 

(put-brict-at Us o} Us OJJ 
(assign U* 0 U U U$ u) |J> 
FALSE* U 15 $ li US 2>J 
SO 

{put—brick-at (s$ o) ($s i)> 
(assign U* 1 2) (+ U$ [ J Ej) 
TRUE* {* U$ 2i US 2)> 

SO 

(assign ($i 0 l) i + (si 0 > i.}> 
FALSE* U (SS li US 2>> 

50 

(assign Ui 2 uJ L)J 
FALSE* {» ($$ OJ ($$ 2i> 

SO 

(put-bric It-at I O) 

(assign (s* 0 li { + (SS 0/ l)i 
EAlSbi U US J> <8$ 2i> 

SO 

(put-brick-at US t i {SS t >i 
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iassign U* t 2) 1+ US Jl 
(assign U* \ Z) ( + U$ I > 1 )) 
TFiOtt {= US 2) U$ ZD 
SO 
< ) 


b/ introoucihg ioentifiers dor the constants the protocols can 
be arrany&d In a tree as follows* 


new Iw nJ 

pew i ww=M(j ji ^ALIJt; h4-i=Nt>— ULUt) 

{assign $*ww o> 
iil~ Uww S5wl 
tnen 

n 

else (assign 5*hh C> if (= SSbh Uhl 
then 

(assign 5 1 ww i+ S$ww 1 ) 1 
if 1= Uww $Swl 


then 
, U 
else 

{assign stbh u> 
if <= $Shh 0> 
then 

{assign S«ww t+ s$ww ill 
if (■ s$w Uwi 
then 
. £) 
else.*. 

els&__* 

else 

(pyt"brict-at Uww $$hh>> 

{assign s*hh (+ SShh t)> 
if U ssfvh sshi 

then 

(assign SJhw i + U ww !)1 
i l (* $5mw 1 > 
then 
(3 

else 

(assign S*hh 01 
if t* Uhh Uhl 
then 

tput-brick-at SSww Uhh) 

(assign $*hh ( + $$hh 1 }} 

If <■ Uhh Uhl 
then 

(assign $tww i+ 


ssww J 


it {= &iWw $Swj 
then £) 

alse *.„ 

else. *. 

else *.* 

else 

(assign s *hh (+ SShh S >J 
ill- s&hh $$h> 
than 

(assign $'ww (+ sfiww 1 > } 
if {a $Siww $gw> 

then (i 
else, 

else , 4 » 


ha define the protocol of an evaluation to he a list 01 
the events and the places in. the program where they happen that 
occur when the evaluation is being carried out. ay examining 
the protocols og the system as it tries to build a wall we find 
that it always uses the same procedure, Of course It will not 
always be the case that the protocols irom the solutions of the 
Instances of a goal con be combined Into a procedure. The basic 
Idas is to combine the. set of protocols into a tree and then 
consider any two nodes of the free which cannot be distinguished 
on the basis oi the protocols to be identical. In other words 
it is necessary to compute a minimal or almost minimal 
homojiuorphit image of the set of available protocols. 
Unfortunately it is often difficult to extract the information 
naadtso to qo procedural abstraction from the protocols produced 
by PLAMflbii thaor&ms as they soiv® problems. The procedure that 
the theorem is in fact using can be expressed as follows* 


(Jaunts compile-ouila (ianioda (Hfixi n > {(fix* hJ) 
Coverall t) 

(t he AJ 


(goal (greaterp 
lgoal (greatarp 
tlntent 
(thano 

(assert 

Assert 


s$w (Ul 
S$w 0))> 


(gresterp $S>w Oi i 
cgreoterp £aw OJ }) 


{prog 

U i lix) ww hh 1 ) 
(assign s*ww u> 

(goal (= $$ww 0)1 


column 

(overall () 

{goal (wall ssv/w sshJJ 

(intent 

{assert (wall s$ww S$hJJ 

( torio 

(W S&WW $$w> 

(intent Wall $5w $$h)i 
(return tJ))) 

(assign § thh b} 

(intent {goal ( = SShh (J)>1 

height 

(overall (J 

ithano 

(goal (wall $Swvr SShlJ* 

(goal (column iSww & 5 hhJ))) 

(Intent 

(thand 

(assert (wait .$Sww 

(assert (column SSww SG hhJ J11 


(conn 

H*= GShh $s.h) 

(assign g t ww {+ $$mt w 111 
(go column >>H 

(intent (goal (Support-for $$ww $Shh)>) 
(putHsrick-at $$*w sshh) 

(intent (goal (brick-at $$ww s$hh>)) 

{ as s i gn S i hh ( + $ $ hh J J 1 
(go heigntll 
(thlambda (XI 

(goal (wall $5w SShHJ 
(thlajiibaa OH 

(assert (wall $£w ssh)J 3M 


(Jelihe check-wall 
(conseguent 


7*4 pa go k'i 


lv J w h' hJ 
(wall S?h'> 

ttnconc 

( tthor 

(goal (- S?r^ OJJ 
(goal £ = $?w^ »>}>J 
( tia K+ 4 ih 1 > I $sh^> 

(goal i krall S?w^ $$hJJ> 
(goal £ column $7w J S7'l>> 
t Us l (*■ 47 w I > J. ss.w^J 

(goal {wall 4?w $$h*m 
tgoai (column $7*K 
(t 

(fail theorem!) J J > 


[define check-"Column 
[consequent 
£w h h'> 
{colunm S Jw 


itheend 


C{goal { = $7h' UJJ> 

His It* 5 7 h i) l 45 hO 

(goal [column s?w 47b)1) 
ft 


(fall theorem!)}>) 


(define che ek-su pport 
[consequent 
(w h> 

(support-for S7w 5?h> 
tthtond 

(tgogL C= S7h d)J> 

(tgoal {column 4 4ww 4$hh))> 

(t if ail theorem)) i >) 

(define put-brick—at 
(tblanjoda (w h) 

(ov e re 11 O 

(goal (support-for $4u $sh)} 
tput-brick-at $$w $$h> 
tassert fbrick-at 4Sw 4$h>))J} 

Th# function compile-build has been simplified by transforming 
the recursive function that correspond to the tags column and 
height into loops* I he structure of the abstracted procedure 
must at least reflect the structure of the PLANNED theorems irons 


which it has byen abstracted* Thus the abstraction of a ior- 
proved loop will generate a recursive equation which might bu 
simplified to a loop* borne of the recursion in abstracted 
functions is primarily* generate^ by the Structure Of tha ueta of 
the proolein* If we consider the tags column and height to 
oe line functlunSj then the proof is essentially by recursion 
induction. in th^ anove procedure $$w is the width oi the wall 
to be ouilt, $5 hw is a running index over the widen, 55h is the 
height, ana 55hh is a running index over the height* Using tne 
intentions in the above procedure as subgoals we can easily see 
that the procedure does build walls- notice that we can use the 
protocols of the procedure 1 In a process that we call “protocol 
rejection") to reject false subgoals in much the same way tnat 
Oelernter ,usea diagrams in his geometry theorem prover* Hor 
example we might evaluate icompile^bulid 1 2 ), (compile-build 2 
J }, and < compile-build 3 2 ) ram emJbe ring the .protocols of the 
evaluations, i'hus when considering the case where the 
intention 


{intent 

(or 

Us ssww 0> 

(wall (subl SS.wwJ S$hh>Ji 


is evaluated iirnieoiately after igo column) is evaluates, it will 
ba the case that Us $sww ij) is false ana so cannot possibly be 
a provable subgoal even though it implies the intention* The 


subgual will be to prove {imp 11 as (not (is $Sw 0)1 (wall (subt 
s&wwj £$hh)K Or course using protocols for tne purpose or 
rejecting false subgoals does not help us to eliminate those 
that are true out improvable* 


Reversing a List at All Levels 


Consider the following protocols for a procedure rs 


(new Lai 

IrfllbJ (Is (atomic} (S$ a}) 

5(1 ($s a) 

thus (r si is a 


(flew E £ n) 1 

J-ALSLi (is (atOfllic) ($$ (n) } 1 
£0 

( 

<new [Erast ($5 
TfiUE* (is (atonic) ($$ ()>) 
SO Us (}}> 

(new [ ( [ (.$$ EnJ >>J 
iRdEt (is (atonic) U$ n>) 
SO US nil) 

thus (r £nl> is (nl 


(flaw ((a b) 1 

JrALSEi (is (atomic) (SS- fa bj )) 

SO 

£ 

<new Lirest (ss (a bl>)J 
t-ALSt= (is (atomic) U 5 (t>J }) 

So 

{ 

<(new [(rest (sS (o>))J 
TWJEi (is (atomic) (ss <u) 
S(J Us 0)> 


(new E (1 (s s 

THU it i (is (atomic) US b>) 
£<j U$ &)))> 

\fl6M C i 1 U $ (a b > > ^ J 
TkfUEi Us (atomic) US a) » 

SO 1S& Si))] 

thvjs (r (a b)J it CJ> a> 


(new t £ £a U 1 

FALSE* Sis (atomic) US ((a)))) 
SQ 


■t ( n e w ((rest ( S $ <la))J)J 
TtiUE 1 Us (atomic) Us ni> 
i.O n> 

(new C i ] US Ua))}}) 

FALSE* (is (atomic) Us £a))J 


"<(new Lirest US (aJJ)J 
1 THUJ=i Us (atomic) US () )) 

60 t))> 

(new E(J U$ £a)))J 
TRUE* ils (atomic) US a)) 
SO (S$ a)) ))) 

thus (r Ua)>> is £<a)> 


hs obtain the following protocol tree* 


(new IxU 

ii Us (atomic) Ux l) 
then S$xJ 
else 

£ 

<new LsZ (rest SSxi)3 
. if Us (atomic) s$x2) 
then S&x2 
site 


7 

i 

■; 

1 



£ 

<new CxJ (rest S&x2>3 
if Us (atomic) $$x3) 
than ssx3 
else♦ > 

(new U4 (1 S$x2)J 
ii Us (atomic) $$x4) 
then U*4 

JWliWijK " r* t \' v > 4 ■. v ■KV ':\ ". '* 
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else**,) 

(new Ixb (1 ssx I j J 
if (is {atomic} s$xb) 
thejn 66xb 
else 
( 

<new Lxo (rest 6 $xo!J 
it 1 15 tatomici &Sxo> 
then 5$xti 
eJsej..> 

(new 1x7 {1 $&xhJ 1 
it (is {atomic} s£x7J 
then .65x7 
else*.,}J) 


Ejy. iuenti tying indistinguishable nodes we obtain'* 

(define super- re vers e (lajnnda (x) 
i cono 

tils {atomic} &sxi s$x? 

it (<super-reverse (rest $SxJ> {super-reverse U 

6.6k )j 3 > } J J 

Consider the following set of protocolsi 
7,2..ii:l4.3 Finding the Description of a Stick 


Suppose that, we have the following data base* 

(Solock, a3 
(block o'j 
{glued a bJ 

J j 

.> ' • ' . . : ••.•••..' j 

! 

;; X;^= : y.-- ; j 

The above oata base represents a stick on the the basts 

»"....“ i • . *1 . 1 ; • ' ■*• •. j • • 

of the following protocol* 


(goal (stick a bJ) 

(new NO-VAUJt NCKVALUt NQ-VALUtJ (f we have three new 
iaentliters that qo not have values! 

consequent* (stick {$7 KG- VALUE at {$? ND“YALdt t>}> 
tbconu 

{proved? (glued i&? a} {$? ) > 


Figure 1, 



(Mock b) 
(glued a b) 


Figure Z. 



(block b) 

(block c) 

{glued a b) 
{glued b c) 
(between a b c) 


Figure 3. 


r (block a) 
(block b) 
(block c) 
(gluec a tj 
(glued h c) 



i 

zq 

C 

Q 

L ' 


(ivat ‘(between a b 






















(return tJ 


Now suppose that the aata base is* 

{block a> 

(blocx b) 

{block c> 

{glueo a b-J 
(glued b c) 

{between a b c) 

it a obtain the jollowing protocol* 

{yuai (stick a cJ> 

[new NO-VALUE NO-VALUE NO-VALUE] 
consequent* (stick is? a) ($? c>J 
thcona 

(proved? (glued ($? a> U? c>Ji 
tail 

(proved [block is? a>>> 

(goal {glued US a> is- NO-VALUE b>>) 

(proved? (between ($S a> (S& bi ($? ell) 

{goal (stick Us d) {$& c)J> 

1 new NO-VALUE NO-VALUE NO-VALUE) 
consequent* (stick U? b) U? C>1 
thcond 

{proved {giueo Is? b> U? c>>> 
{return t/ 

By variaballauti on we ootain the following protocol tree* 

{goal < stick u v)J 
I new x y zl 

consequent* (stick $?x S?zl 
itncond 

{tgoal (glued S?x S?zJ> 

.(return t>)> 

(proved? (block S ?x)} 

(goal (glued S$x $-y)J 
iproveq? {between $SX S$y $?li) 
igoai (stick S$y UiJ> 
l new xI y J zI 3 

consequent* (stick S?xl $?z1) 
ithcono 

[{goal (glued $?xj s?z]J> 

{return t>>1 

(proved? (block S?x]J) 

(goal {glued $sx r s*-y(>> 

(proveo? (between $5xl SSyt 
(goal (stick SSyt SSzIl) 
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by idanti lying indistinguishable nodes we oata in the 
following consequent theorem which is the description 0 3 e 
stick* 


(define sticfc-aescription (consequent 

{x y z) 

{stick six sU> 

(thcona 

{{goal fglued s?x $'?£)} 
(return tl3) 

{proved? (block $?x)} 

(goal (glued $$x $+~y)i 
(proved? (between s$x $$y sJzJl 
(goal (stick $$y S$zJ)J) 


7*2*2*4*4 binding the hibonocci Numbers iteratively 


b Dili at j. cues it is possible to Improve tne efficiency of a 

procedure oy procedural abstraction* For example consider the 

protocols ol the seheraa f oolined oelow. 

(define f (lambda t i 1x1 (((fix/ n)) 

iconu Iflxl (tor (P nl tp ts n))J OJ 
it (A (j (5 n >J tj IS (S 


rte shall used the abbreviation that If^O X> is x and (i^h+I x> 
is (f (j"n x)l where f is e function* Thus (f*2 kl is (f if 
xiJ* The protocol for the above schema is* 

if (or £P (S^d n>} iP (b*1 nJ)> 
then 0 
else 
(A 

ij (or fP tS~( nl) (P t5 *2 nJ>) 
than o 

else 

(A 

it (or tP (S^2 nil tP (S^i nil; 
then 0 
else * * * 


ii (or n)i {p tb--4 nj>) 

then U 
else*** > 

il (or (P (S"2 ii JJ (p (;s*3 n» )}> 
then 0 
<3 Ise 
(A 

ii lor <P {£*3 n» IP ti>"4 nH> 
then U 
else* *, 

11 lor {P (3*4 n)l (p (p^b n}}) 
then o 
else * * *)> 


by procedural abstraction he can obtain a function fl 
wnich is equivalent to 1 * The function Is obtained by 
identifying soma of the ncdas that are not on the saftie branch of 
the protocol tree* The type (fix) below Is the type tn lixeo 
point numbers* The type ,(loc (flxlj is the type oi where the 
location of a fixed, point number can be stored* 


i die line fl (lanboa (fix) ff{fixl n)J 
(prog ft Hoc Uix>> m)J 
{ i£ n m)) )) 

fdafiiie i2 (lambda Uix) fn (Uoc (fix!) m)> 

( cona 

( (or IIP n) (p n) ) 

(* in this special case smash the location m to 

contain 0> 

(assign (smash .$$m) 0)) 
it 

(prog (fix) ((Hoc (fix)) 1)> 

(assign (smash ssm) if2 $$n SSHH* set 
the contents oi m to he < f2 ,$$n ssD) 

(i the value of 12 is the function A 
applied to the contents of «n and the contents of 1) 

(A 

Un $$m> 
fin $Si)))Jh > 

Anotiiar approach is to use soma of the theory OI recursive 


stnemes. The function j defined above is schemati call/ 
equivalent to the function fl.defined below 


. {define ff Clambda if 1x1 .({{fix! nil 

{for {fix) rdiix-J cx QJ (y o>>)J 

Utest if' ££n) {return s$xH 
{step {assign sm i5 SsnJJJ 
{assign IL&jx $*/J! UiA ssx 5$yl $$xl!l 

{;the previous statement is just a tricky nay to 
simultaneously accomplish tassign six {A sSx s§y)'/ ano (.assign 
Sty SSx >J>J) 


hote tnat ifio n> the nth ribonacci number can be defined as 
follows 


(deiine fib {lambda ifixj (({fix) h)J 
icona <fix> 

{(or {is 1 $&nl Us 1 $$n>) I) 
tt i* ifib i- $Sn li i- 5$n 

Using the interpretation that 0 is I, tP x) tests to see ii x is 
f t ana A is add, we sea that the iunction fib can be rewritten 
iteratively. 

The process of procedural abstraction is very much like 
a generalised lorsn of compilation. The relationship between the 
compiled version and the interpretao version can be very subtle, 
in classical compilers the relationship is much more 
straight? orwara* Every time that the interpreter for the 
language changes the compiler must change. In fact the 
interpreter and compiler are two mooes of what is essentially 
one program* an interpreter-compiler, In compile mode it would 


actually produce the compiled code for the source cooei in 


interpret moae it would take the actions corresponding to the 
compiled code that would be produced in compile moae* The 
interpreter-compiler can be written in MAlCHLtSS so that in 
compile mode the teATtJHLtSS skeletons have as value the compiled 
code,. One problem with interpreter-compilers is that they 
Sdifer front the inefficiency of double interpretation* Instead 
oi directly interpetlng the expressions, in interpret mooe the 
interpetur-compiler interprets the skeletons that would produce 
the code in compile mode* The proolem can be solved by 
compiling the interpreter-compiler for interpret mode* he would 
like to try to extents this idea to PLAjMiNSHR in a more nontrivial 
way so that goals would be created to produce the compiled code* 

7.2. 2 , 4.5 .Defining a Data Type 

he Can do procedural abstraction ol protocols along the 
sane lines for actors* For example if we obtain the following 
actor protocol 

Hi 1 

((>) 

((atomic) > 

((if 

f O ? 

( (atomic} > 

Hi! 

[ E J) 

f(atomic!J} 


<i i 


<if 


E E ))» > 


{ c>) 

£{atomic)J 

£ (if 

U 1) 

£{atomic)) 

(Uf 

l(})} 

< if 

ay} 

£ {atomic/)* > m> 

Ihcrt by identifying euivaLunt noues we obtain the actor expr 
wnere 


{■uefine expr Ckappa Ci 
Uf 

CO) 

({at omic)) 

f£{«xprJ <expr-*) 3- })) 

uoodstein has many inauctiva proofs ol the the 
properties of recursive programs* John McCarthy was one of the 
first to popularize the use of recursion induction ior proving 
the properties of programs* The easiest way to do recursion 
induction is to provide at least one predicate ior each 
recursive aquation* Robert i-loyu has proposed that predicates 
In the first order quanti/icatione! calculus be attached to the 
edges oa flow charts in order to provide subgoals for proofs 03 
properties of programs* In general we would prefer to proceed 
more constructively ama to write intentions in PLANNER rather 
than in a iorm of the quantificational calculus* Hinaing an 
intuit1onistic proof oj a sentence in first oraer Logic is the 
same prohiotfi as finding a recursive function that realize the 
the for inula* Since the logistic system of PLANNER is very 


constructive a proof of a PLANNER theorem entails being able to 
write the procedures which compute the values that Identifiers 
in goals take on as a result of the goal being established* 
Intentions are a lirst step toward constructing models oi the 
environment in which a process executes* He need to develop 
good ways to increase the expressive power of intentions* 
Currently the model oi the computation must be expressed by 
intentions within the process being executed which makes it 
difficult to get a global view o t the model of the execution ol 
the process* The application of intentions in which we are most 
interested Is their use to provide subgoals to enable us to 
deduce PLANNER theorems with loops in them* he shall say that 
an Intention i characterizes, a function f if whenever (1 x> 
converges then (equal t i x> yJ if and only if ii x y) Is true* 

A long time ago John McCarthy and others proposed that the 
debugging problem be solved by proving that the procedure is 
correct once and for all. Using Inauction McCarthy and his 
students have proved that certain compilers are correct* The 
most Important practical difficulty to- the realization 03 the 
proposal Is that for many functions f written in higher level 
languages it seems that all the intentions that characterize f 
are at least as long as 1 because the only way to tell whether 
the value 01 if xl is correct or not is to do an equivalent 
computation all over again* A good example of such a function 
Is eval in LISP, The function eval is an extreme example 01 a 


function that has no Simple declarative input odput 
characterization* A real challenge In automat it program 
writing is to develop a symbolic inetegration routine from the 
criteria that the derivative of the answer must be equivalent ta 
the Input* One approach toward constructing such a routine 
wouIg be to make use of some results of frisch on what must be 
the form ol the Integrand as a function Ol the form of the 
integrand. in the case ol the factorial function there are two 
oovious ways to compute the function* using recursion or using 
.a loop. In other cases it is not so obvious how to find a 
sufficiently oiuferent equivalent program, he shall say that an 
intention 1 is implied by. a function 1 if whenever if x> 
converges then if (equal if x) y), then (I x y> is true. 

Implied intentions are useful when we are only interested In 
some property of the lunctiofi a no don't care to try to 
characterize it completely. ho,r example we might not care 
-whether a function that determines how to stack cubes always 
. puts red cubes on the bottom of the tower that it is trying to 
build. Or we might be interested in proving that a scheduler 
for a time sharing system passes some test dor fairness In Its 
distribution of time to users. Another potential use for 
implied intentions is to provide subgoals to prove that a given 
function that uses lock and unlock and unlimited use of 
assignment in parallel computations is indeed determinate. 


7*d*3 Teaching Procedures by Deducing tha Bodies ol Canned 
Loops 


If the type ol control structure is known a priori f then 
the rest ol the function can ojten be deduced. Often the 
control structure needed Is a very commonly used loop such es 
the n for H loop in MAICHLE55, recursion on the tree structure ol 
lists, or one of the loops in PLAINER such as "try"* - finoi l, 1 or 
“act". he shall coll loops such as the above “canned" Loops 
since we will often pull them out ana use them whole when we are 
in need of a control structure for a routine. The approach Ol 
using canned loops is the one used by Kleane for constructive 
reaIllation functions for intuit ton 1stic logic, Suppose that we 
know the following theorem about the predicate tiitvERSEP x yJ 
which means that y is the reverse of x* for example freversep da 
aal ana treversep U 2 (3 (13 4) 2 U> are true, rfe shall 

use l< arm >1 as meta angle brackets for c ana > respectivly* 

As before .and Jl are the meta braces for i and ), 


[dej£ne thd^ [consequent 
{a b c} 

[reversep 57a £?b> 
ttncond 

Hhasval? a) 
tthcono 

I (goal (atom sse)l 

I.J i 1 a is an atom then b should be 

{goal <= $7b))J 

ft 

{goal fnot (atom sse)>) 


equal to a) 


rest ol a! 


(goal (reversap Mrest £$a! J s-c)J 
(t otherwise let c bathe reverse □] the 

(goal (* (£<identity $&c>! Ml SfraM) 

Ct (gen Jail! )> J1 


tie would like to fines a Junction reverse such that treversep x 
(reverse x!) Is always true* The theorem above suggests that we 


try to use linear induction on lists as the control structure. 


The schema lor linear induction applied to the function reverse 


is* 


.{deline reverse (lambda (x ) 
l (cono 

( Matom §sx 1 ■ 

(temprog (Y } 

(assert (atom s$xJl 
(goal Crev&rsep SSx 5—V J > 

U find a Y which Is the reverse ol the 
atom “SSX' 1 and return it as value! 

$$YJ> 

(t 

(temprog CYJ 

(assert (not (atom $5x1)> 

(assert (reversep 

Mrest $&x>i 

((reverse ((rest $$x)!>n> 

(goal (reversep stx S'-Y)} 

>> > >> 

The above expression evaluates to the following definition* 


(define reverse (lambda {x> 

{ cona 

((atom. $5x> $$X> 

(t (^identity (reverse (rest (1 SSx!)JJM 
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7*2,4* Comparison of the Methods 

Thar# is not much to be saio about teaching procedures 
by tailing* It is not always clear whether the procedure should 
oe taught ironi the top down or the primitives should be taught 
first* However* the bastes of the method are simple ana 
direct* Unfortunately the teacher will not always know the 
code for the procedure which is to be taught* He might be 
engaged in wishful thinking hoping to find a procedure with 
certain properties* The method oi canned loops is often 
applicable to such cases. Trying to use the method q j canned 
loops has the problem that the control structure must be 
supposed. Often it is vary difficult to guess the kind of 
control structure which will prove appropriate* Also the method 
of canned loops works on the problem in the abstract as opposed 
to specific examples where the identifiers are bound to actual 
values* The advantage of the abstract approach is that if it 
succeeds then the procedure will be known by its construction to 
have certain properties* On the other hand it is often easier 
to see what to do on concrete cases* The approach Of procedural 
abstraction is to combine together several concrete oases into 
one supposed general procedure* Properties oi the general 
procedure must then be established by separate argument* If the 
protocols of the examples are produced by a goal-oriented 
language such as PLANNER then there will be points along the 


protocols where certain predicates are known to oe true, I he 
predicates express the fact that seme goal was established as 
true at that point* Often it is possible to show oy 
mathematical induction that the correspond.log properties in the 
abstracted procedure are always true when the procedure passes 
through, the points* In this way a problem solver can have a 
partial model of his problem soiviE^g procedures* The monels can 
be expressed naturally in PLAKWEE* Also the method o3 
procedural abstraction has the advantage that the control 
structure does not have to be supposed in advance* Often a 
problem solver will have the basic problem solving ability to 
solve any one of a certain class of problems* but he will not 
know that ha has the capability* writing a procedure which can 
be shown to solve the class enables the problem solver to 
bootstrap on his previous work* Procedural abstraction itself 
is further evidence for the Principle o* Procedural Embedding* 

To implement the principle as a research program requires a high 
level goal-oriented formalism* pLANhbte and some embellishments 
that w# have made to the language are first steps toward 
realizing the Principle of Procedural Embedding * 


7*3 Current Problems end future Work 


dIBLICGRAPhf 


dlac*, hi, 1904* A Deductive Question Answering System„ 
goo c ora 1 dissertation, harvard university, Cambridge, -lass* 

Cooper, ii t C*, 1 he t.^LiivoUnca of Certain Jojiputatior. 

Ihe Computer Journal, Vo-1, 9, no. !* 

Floyd, ft, to,, Assigning meanings to Programs, 

Proceedings Of Symposia in Applied Mathematics* Volume ll'A. 

Floyd, ft* h,, Jonaetarministtc Al gorithrt.5, JAG.it, Oct, 

1967. 

Green, C* C* and Raphael b, Research on Intelligent 
Question-answering System, May 3 967. 

Green C, G, {with oob fates), Application of Theorem 
Proving to Problem Solving, Pooc IJCAI, 

Guzman, A,, Some Aspects at pattern Recognition by 
Computer, M*S* thesis, iMassachUSetts Institute of Technology, 

1 967 * 

Guzman, A* and McIntosh, H+ V*, Convert, Communications 
of the Association for Computing Machinery, August, I960. 

d-ewitt, C., PLANNER* a Language for Proving Theorems, 
Artificial Intelligence Memo 1ST* Massachusetts Institute or 
Technology {project MAC), July ]967, 

Hewitt, C*, Functional Abstraction in LISP and FLAFNtft, 
Artiiieial Intelligence Memo I b 1, Massachusetts Institute of 


i'ecSinology (project NAC), 

Kaplan, j, }.i, , Correctness or a CoenptLer fc::r ALJCL^li 
Programs. Stanford A.l, Memo No, 4o. 

.IcCerthy, J* \?59* Programs witn Common 
Proceeding cr the byrnposium on r,:ecnan.i-*et ion or fnought 
processes, National Physical Laboratory, Teddington, iinglanu, 
London* H* Stationary Qfiice, 7 j-L4* 

McCarthy, J«i Acruhans, pad ft, ; cowards, uanlaL J*; 
hart, fiaothy P,J and Lew In, Michael I* I y*d Lisp t,5 
Programmer's Manual, .'4, I, 1, Press, 

McCarthy t J* ana dayes, P., sale Philosophical Problems 
roroi tna Standpoint of Artificial Inte 111 pence. Stanford A, I, 
Memu 73* 

Newell A,, studies In Problem Solving* Subject 3 on the 
Crypt-arithmetic Task Donalc + Garde - fiobert* 

Newell, A +, Shaw, J, C., ana Simon, j-L A*, 1959 r Report 
on a General Problem-solving Program, Proc&eoings of the 
International Conference on Informati on Processing, Paris* 

UNESCO House, pp, 2i?6-264* 

Mama, Z., Termination of Algorithms*. Ph. J. thesis, 
Carnegie % 

Sovner, Paul D, LEAP Users Nanual* Lincoln Laboratory 
technical temoranduh No, 231“0:.£9. 

Slaglj, J* j iObo* Experiments with a Deductive Question- 
answering Program, Communications of tha Association for 


dc.np 


mi"I i 


utinp ,jicj chi ns ry t Ja camber, &*7y^-VS?u, 

■ idloAncur and Lcc, PROh* A 3tap Toward Automatic ^rogr-aiii 
ifig + Proc. IJCAI. 


